open(DAT, "<", "data") || die "Kann data nicht lesen: $!\n";

while(my $string = <DAT>)
  { print $string if ($string =~ m/USA/); }  

close(DAT);