if ( (index($SourceLine,'#') > -1) && (index($SourceLine,'PAGES') > -1)) { 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