Select Code to Download

my $line = q|a HREF="../../main.shtml" a HREF="index0002.shtml" Next P
+age|;
if($line =~ /.*HREF="([^"]+)"/){
    print "$1\n";
}

my $line = q|a HREF="../../main.shtml" a HREF="index0002.shtml" Next P
+age|;
if(my $link = ($line =~ /HREF="([^"]+)"/g)[-1]){
    print "$link\n";
}