my $number;
while ( my $line = <$filehandle> ) {
  if ( $line =~ m{START Number=(\d+)} .. $line =~ m{ENDE} } {
    $number = $1 if $1;
    if ($number == 3151)
    ...
    else
    ...  
  }
}