use Text::CSV_PP;
use Data::Dumper;


$csv = Text::CSV_PP->new();           # create a new CSV parser object

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

  $status = $csv->parse($line);  
  @col = $csv->fields();
  print Dumper @col;

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