Select Code to Download

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