use File::Basename;
use URI::Split qw(uri_split uri_join);

my @uri = uri_split('https://www.domain.com/aaa/bbb/file.zip');

$uri[3]    = 'file='.basename($uri[2]);
$uri[2]    = 'file_publish';

my $uri = uri_join(@uri);

print $uri."\n";
[download]