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";