#  Delete (something) from the input stream, separate the
  #  count from the file name.

  s/$in_prefix//;
  my ( $count, $file ) = split;