'http:/00/ab1235/66/index.htm' =~ m|/([a-zA-Z_0-9]+?)/[^/]+.htm[l]*$|; print $1, "\n";