#!/usr/bin/env perl -l

use strict;
use warnings;

my @test_data = (
    [qw{discardA1 discardA2 lineA wantedA1 wantedA2}],
    [qw{discardB1 discardB2 lineB wantedB1 wantedB2}],
    [qw{discardC1 discardC2 lineC wantedC1 wantedC2}],
); 

for (@test_data) {
    my @ssh = @$_;
    my $wanted_found = 0;

    for my $line (@ssh) {
        if (! $wanted_found) {
            $wanted_found = $line =~ /line/;
        }
        else {
            print $line;
        }
    }
}

##</code><code>##

wantedA1
wantedA2
wantedB1
wantedB2
wantedC1
wantedC2

##</code><code>##

#!/usr/bin/env perl -l

use strict;
use warnings;

my @test_data = (
    [qw{discardA1 discardA2 lineA wantedA1 wantedA2}],
    [qw{discardB1 discardB2 lineB wantedB1 wantedB2}],
    [qw{discardC1 discardC2 lineC wantedC1 wantedC2}],
); 

for (@test_data) {
    my @ssh = @$_;
    my $wanted_found = 0;

    for my $line (@ssh) {
        if (! $wanted_found) {
            next unless $wanted_found = $line =~ /line/;
        }

        print $line;
    }
}

##</code><code>##

lineA
wantedA1
wantedA2
lineB
wantedB1
wantedB2
lineC
wantedC1
wantedC2