Select Code to Download

use strict;
use warnings;
...
    $found = $1;
    print $found, "\n";
}

my @lines = split /\n/, $temp;
foreach my $idx ( 0 .. $#lines ) {
...
    print $found;
    last;
}