if ($word=~/($railcarcnt)/io){
  $count{$1}++;
  print "Line $. [$word] matches [$1]\n"; # add 
}