sub txt($) {
  local $_=shift;
  my (undef, undef,$txt)=m{^\s*(\d+)\s+(\d+),(.*)};
  $txt;
}
##</code><code>##

sub txt {
  shift =~ /^\s*\d+\s+\d+,(.*)/;
  return $1;
}