Perl rox dontcha know!#!/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);}
In reply to Perl rocks by Darkling
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |