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