my $regexp = qr{(?:ftp:\/\/)?\/{5}(a-z_)\/};
if ($link =~ /$regexp/) { ... }