Help for this page
my $url = 'http://www.page.com/files4/i/90c/1493010807t1.jpg'; my ($domain, $path, $file) = $url =~ m'^(\w+://[\w.]+/)(.*?/)([\w.]+)$ +'; print "$domain\n$path\n$file\n";
http://www.page.com/ files4/i/90c/ 1493010807t1.jpg