- or download this
print join(",",unpack("A8A10A2",$_)),"\n" while <DATA>;
- or download this
perl -i.bak -l -ne "print join(',',unpack('A8A10A2',$_));" filename
- or download this
----------------------------------------------------
$less->{'chars'} = `"time in the pub" | more`; # :-D