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

##</code><code>##

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

##</code><code>##

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