- or download this
#!/usr/bin/perl
...
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort split
- or download this
#!/usr/bin/perl -w
use strict;
...
}
be $mine for @ever
- or download this
#!/usr/bin/perl -w # there can be only one
...
1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<
$^+1)+one($/)>>1)-$^-1)}}{one($=^(one($")>>1))';s
;{one;chr;g;y;{ne}}\012\040;.rd.;sd;eval;print;#1
- or download this
#!/usr/bin/perl
# Copyright (c) Marcus Post, <marcus@marcuspost.com>
...
000000000000000000000000000000000000000011110000000000000000
000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000
- or download this
$_=!Mima,s--
'=9+)w'^RINGS
Saturn^wNXIBP
S|A|T|U}(@R,$N)
- or download this
#!/usr/bin/perl
$_='
...
s; ". chr(9 2)."s;;g;eval\n "}
';s;\s;;g;eval
- or download this
#!/usr/bin/perl
$_='
...
; g; eva l\n" }
';s;\s;;g;eval
- or download this
#!/usr/bin/perl -w # find-a-func
use strict;
...
The use of the llama image in association with Perl is a trademark
of O'Reilly & Associates, Inc. Used with permission.
- or download this
#!/usr/bin/perl -w # how to (ab)use substr
use strict;
...
substr ($pi,9,2));}(map{chr($_+
substr ($pi,21,2))}(
substr ($pi,8)x3)=~/../g);
- or download this
$; # A lone dollar?
=$"; # Pod?
...
{Just=>another=>Perl=>Hacker=>} # Bare block?
=$/; # More pod?
print%; # No right operand for %?
- or download this
#!/usr/bin/perl -w # camel code
use strict;
...
145\162 \155\151
\163\163 \151\1
57\156\056