http://www.perlmonks.org?node_id=1026441


in reply to Remove a Line

I suggest you add a print line to understand what is happening. It might be a data issue. 
if ($word=~/($railcarcnt)/io){
  $count{$1}++;
  print "Line $. [$word] matches [$1]\n"; # add 
}

[download]
poj

In Section Seekers of Perl Wisdom