This is my first try, feel free to offer sugestions and/or comments:

use strict;@_=([00,0140,01,0200,06,0140,96,0140],[00,96,06,0140,06,24,
+0140,0140],[00,0140,030,24,06,96,102,0140],[96,0140,0146,102,06,00,01
+40,0140],[25,129,0200,1,134,00,96,0140]);@_=map{;@$_=map{($_>>6&3,$_>
+>4&3,$_>>2&3,$_&3)}@$_;$_}@_;@_=map{@$_=map{$$=y;531968270;[/{@$_}] ;
+;;$_}@$_;;push @$_,chr 012;print @$_}@_;
[download]