Select Code to Download

for( my $i = 0; $i <= $#lines; $i++ ) {
    if ( $lines[$i] =~ s/^SY(?= )/CN/ ) {
...
        }
     }
}

my $previous_line_matched = 0;
foreach my $line ( @lines ) {
...
    }
    $previous_line_matched = 0;
}