Select Code to Download

while ( <INFILE> ) {
    next if not /ver = '(.*?)'/;
...
    close INFILE;
    last;
}

{
    open my $fh, '<', $filename
...
        last;
    }
}

use List::Util qw( first );

...

    first { /ver = '(.*?)'/ } <$fh>;
};