my $file = 'http://txs.corp.com:8080/area/es/2215.csv.gz'; my ( $gzip ) = $file =~ m/\/(.*?\.gz)$/;