Select Code to Download

print join(",",unpack("A8A10A2",$_)),"\n" while <DATA>;

perl -i.bak -l -ne "print join(',',unpack('A8A10A2',$_));" filename

----------------------------------------------------
$less->{'chars'} = `"time in the pub" | more`; # :-D