Perl rocks

[Darkling]

Yes, it's another silly pointless one inspired by the last one I did...

#!/usr/bin/perl

#Perl rox!
$a="pErLrOxPeRlRoXPeRlrOXPeRlRoxperlroxPerlroX
PerLROxPerLROXPeRlRoxPerLroxPerlRoXPeRlrOxperl
roxPeRlroxPerlRoXPeRlrOxPerLRoxperlroxPerLrox
PerlroXPerlrOXPerLrOXPerlRoXPeRlrOxperlroX";$a=~s/
//g;for(0..24){$b=substr($a,$_*7,7);$b=~s/[A-Z]/1/g
;$b=~s/[a-z]/0/g;print chr(oct("0b".$b)+32);}

Perl rox dontcha know!