Select Code to Download

#!usr/bin/perl

...

close(IN);
close(OUT);

$line =~ s/href\s*=\s*\"?.*\"/$sub/g;

$line =~ s/$match/$sub/g;