http://qs321.pair.com?node_id=1196568

stefanches7 has asked for the wisdom of the Perl Monks concerning the following question:

Hello, dear perl monks!

I have a problem with regexp. Code looks like

my $regexp = "(?:ftp:\/\/)?\/{5}(a-z_)\/"; my $link = "ftp://ftp.ensemblgenomes.org/pub/release-36/metazoa/vcf/ix +odes_scapularis/ixodes_scapularis_incl_consequences.vcf.gz"; if ($link =~ /$regexp/) { print "Captured info: $1 \n"; }

What I wanted to say with this regexp: either match or don't match "ftp://" a without capturing, then match the front slash exactly five times, after this capture all characters a-z or underscore before the next front slash. So in this exact case I would expect the regexp to match and $1 to return "ixodes_scapularis". However, if block seems to fail (nothing is printed).

What am I doing wrong? (I guess there could be several mistakes)