my $match = 'fwa';
if ( -1 != index($line,$match)) {
  # matched!
  $seen_lines{$line}++;
}