use warnings;
use strict;
use File::Basename;

my $file = 'http://txs.corp.com:8080/area/es/2215.csv.gz';
my $gzip = basename($file, qr/\.gz/);
print "$gzip\n";

__END__

2215.csv.gz