if ($r =~ /(?#avoid empty pattern)$r2/)
{
    ...
}