c:\@Work\Perl\monks>perl -wMstrict -le
"my $regexp = qr{ \A (?: ftp://)? (?: [^/]+ /){5} ([a-z_]+) / }xms;
 ;;
 my $link =
   'ftp://ftp.ensemblgenomes.org/pub/release-36/metazoa/vcf/ixodes_scapularis/ixodes_lapuscaris_incl_consequences.vcf.gz';
 ;;
 print qq{captured '$1'} if $link =~ $regexp;
"
captured 'ixodes_scapularis'