my $rx = qr/abc/;
if ($str =~ /^($rx)$/) { ... }