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