myparrot.pl
Mar. 21st, 2010 11:01 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
tonybaldwinThis is a real program, written in perl. Seriously.
#!/usr/bin/perl
# my parrot, by tonybaldwin / http://baldwinsoftware.com
#!/usr/bin/perl
# my parrot, by tonybaldwin / http://baldwinsoftware.com
''=~('('.
'?'.'{'.("\`"|
'%').('['^'-').('`'|
'!').('`'|',').'"'.('#').
'!'.'/'.('['^'.') .("\["^
'(').('['^')')."\/".( '`'|'"')
.('`'|')').('`'|'.').'/'.('['^'+').(
'`'|'%').('['^')').('`'|',').('!'^'+').
('['^'+').('['^')').('`'|')').('`'|"\.").(
'['^'/').('{'^'[').'\\'.'"'.('['^'-').("\`"|
')').('['^'(').('`'|')').('['^'/').('{'^'[').
('`'|'(').('['^'/').('['^'/').(('[')^ '+'
).':'.'/'.'/'.('['^',').('['^(',')).( '['
^',').'.'.('`'|'"').('`'|'!').(('`')|
',').('`'|'$').('['^',').('`'|"\)").(
'`'|'.').('['^'(').('`'|'/').('`'|'&')
.('['^'/').('['^',').('`'|'!').(('[')^
')').('`'|'%').'.'.('`'|'#').('`'|'/')
.('`'|'-').'\\'.'\\'.('`'|'.').('\\').
'"'.';'.('!'^'+').('`'|'%').('['^'#')
.('`'|'%').('`'|'#').('{'^'[').('(').
"'".('`'|'&').('`'|')').('['^')').(
'`'|'%').('`'|'&').('`'|'/').('['^
'#').('{'^'[').('`'|'(').('['^'/')
.('['^'/').('['^'+').':'.'/'."\/".(
'['^',').('['^',').('['^',').'.'.(
'`'|'"').('`'|'!').('`'|',').("\`"|
'$').('['^',').('`'|')').('`'|'.')
.('['^'(').('`'|'/').('`'|('&')).( '['
^'/').('['^',').('`'|'!').('['^')' )
.('`'|'%').'.'.('`'|'#').(('`')| '/')
.('`'|'-')."'".')'.('!'^('+')). '"'.'}'
.')');$:='.'^'~';$~='@'|'(';$^ =')'^'[';$/
='`'|'.';$,='('^'}';$\=('`')| '!';$:=')'^'}'
;$~='*'|'`';$^="\+"^ (( '_'));$/='&'|'@';
$,='['&'~';$\=(',')^ ( '|');$:='.'^'~';$~=
'@'|'(';$^=')'^"\["; ( ( $/))='`'|"\.";$,=
'('^'}';$\='`'|'!';$: = ')'^'}';$~='*'
|'`';$^='+'^('_');$/= '&'|'@';$,
='[' &'~';$\=','^'|' ;$:='.'
^(( '~'));$~=('@')| '('
;( $^)=')'^"\[";$/=
( '`')|'.';$,='('^
'}';$\='`'|"\!";
$:=')'^('}');#;#