Quote:
Originally posted by Hubris Boy
#!/usr/bin/perl -lw
use strict;
$_='';
s//#?=> :}\~>\\!;/;
substr($_,-1)= ' )!{ \:<_!';
y/#):</JPac/;
s/!/Y</g;
y(<=>?)(rstu);
y/Y\\_/ehk/;
y/{}~/lno/;
print; [/b]
|
Bareword found where operator expected at ./test.pl line 6, near "y/#): s/!/Y"
__________________
"Neither can his Mind be thought to be in Tune,whose words do jarre; nor his reason In frame, whose sentence is preposterous..."
|