#!/usr/local/bin/perl

open( f, "<iso5tab")  || die "can't open the file\n";

while (<f>)
{
   chop;
   s/^[\ \t]+//g;   #strips leading white space
#   s/#[\0-\377]+//g;  #strips comment

   /([^ ]+) +([^ ]+) *\#(.*)/;
   
   $from = hex $1;

   print "$from, $2, #$3\n";
}
