my $found = 0;
while ( $found < 2 and my $line = <DATA> ) {
  if ( $line =~ m/customer2/ ) {
    # ...
  }
}