my $find_re = qr/1\.2\.3/i; ... grep /$find_re/, ... ...