Select Code to Download

#!/usr/bin/perl -w

...
        $data =~ s/($_)/<a href="$url">$1<\/a>/g;
}
# now do something with $data

    $data =~ s/\[($_)]<a href="$url">$1<\/a>/g;