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,0140,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 @$_}@_;