while (defined($line = <> ))  {
  print $line  . "~~\n";
   
  for ( $i=0; $i <length($line); $i++) {
     $char =  substr($line, $i,1);     
     $hex  = sprintf("%1x", $char);
     print  $char  . "\t".  $hex  . "\n";
     
  }  #for

print "--new line--\n";
}  #while