while ( my $line = <$pipe> ) { if ( $line !~ m/password prompt:/ ) { # define your pattern for the password prompt push @cmd, $line; } else { # maybe empty or reset @cmd last; # end while loop } } close $pipe;