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

##</code><code>##

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