Select Code to Download

open(my $fh, '<', $inputs)
   or die ...
...
while (<$fh>) { ... }

close($fh);  # Optional.

if ($line =~ /\Q$string\E/) { ... }

if ($line eq $string) { ... }