Select Code to Download

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