if ($r =~ //) 
{
 xxx
}