main::char_handler(./test.pl:137):
137:            ($p, $data) = @_;
  DB<21> p $data
PositionFairValueBase
  DB<22> x $data
0  'PositionFairValueBase'
  DB<23> s
main::char_handler(./test.pl:140):
140:            $data =~ s/\t//g;
  DB<23> x $data
0  '
'
  DB<24>