my $url = "http://google.com/folder/1234.html";
my $numbers = $url;
$numbers =~ s#^.*(\d+)[^/]*$#$1#;
print $numbers;