## example t2hex($lineno,$inputline); sub t2hex { # text to hex my @lines; my $id=shift; my $str=shift; print $id.' '.$str."\n"; my $hex=unpack('H*', $str); for (my $i=0;$i