my @lines = <$fh>;
chomp @lines;
my ($found1) = grep /^0202xx /, @lines
  or die "0202xx nicht gefunden";
my ($found2) = grep /^040xx /, @lines
  or die "040xx nicht gefunden";

print "$found1\n$found2\n";