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