my $pattern = qr/.../;
if ($_ =~ $pattern)