Select Code to Download

$_ = $line;
s/$ARGV[0]/($ARGV[0])/g;
print $line;

use strict;
use warnings;
...
}

close $fh;