Entries tagged with perl

This is a real program, written in perl. Seriously.
#!/usr/bin/perl
# my parrot, by tonybaldwin / http://baldwinsoftware.com

''=~('('.

'?'.'{'.("\`"|

'%').('['^'-').('`'|

'!').('`'|',').'"'.('#').

'!'.'/'.('['^'.') .("\["^

'(').('['^')')."\/".( '`'|'"')

.('`'|')').('`'|'.').'/'.('['^'+').(

'`'|'%').('['^')').('`'|',').('!'^'+').

('['^'+').('['^')').('`'|')').('`'|"\.").(

'['^'/').('{'^'[').'\\'.'"'.('['^'-').("\`"|

')').('['^'(').('`'|')').('['^'/').('{'^'[').

('`'|'(').('['^'/').('['^'/').(('[')^ '+'

).':'.'/'.'/'.('['^',').('['^(',')).( '['

^',').'.'.('`'|'"').('`'|'!').(('`')|

',').('`'|'$').('['^',').('`'|"\)").(

'`'|'.').('['^'(').('`'|'/').('`'|'&')

.('['^'/').('['^',').('`'|'!').(('[')^

')').('`'|'%').'.'.('`'|'#').('`'|'/')

.('`'|'-').'\\'.'\\'.('`'|'.').('\\').

'"'.';'.('!'^'+').('`'|'%').('['^'#')

.('`'|'%').('`'|'#').('{'^'[').('(').

"'".('`'|'&').('`'|')').('['^')').(

'`'|'%').('`'|'&').('`'|'/').('['^

'#').('{'^'[').('`'|'(').('['^'/')

.('['^'/').('['^'+').':'.'/'."\/".(

'['^',').('['^',').('['^',').'.'.(

'`'|'"').('`'|'!').('`'|',').("\`"|

'$').('['^',').('`'|')').('`'|'.')

.('['^'(').('`'|'/').('`'|('&')).( '['

^'/').('['^',').('`'|'!').('['^')' )

.('`'|'%').'.'.('`'|'#').(('`')| '/')

.('`'|'-')."'".')'.('!'^('+')). '"'.'}'

.')');$:='.'^'~';$~='@'|'(';$^ =')'^'[';$/

='`'|'.';$,='('^'}';$\=('`')| '!';$:=')'^'}'

;$~='*'|'`';$^="\+"^ (( '_'));$/='&'|'@';

$,='['&'~';$\=(',')^ ( '|');$:='.'^'~';$~=

'@'|'(';$^=')'^"\["; ( ( $/))='`'|"\.";$,=

'('^'}';$\='`'|'!';$: = ')'^'}';$~='*'

|'`';$^='+'^('_');$/= '&'|'@';$,

='[' &'~';$\=','^'|' ;$:='.'

^(( '~'));$~=('@')| '('

;( $^)=')'^"\[";$/=

( '`')|'.';$,='('^

'}';$\='`'|"\!";

$:=')'^('}');#;#