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

##</code><code>##

#!/usr/bin/perl -w
use CGI qw(:standard);

my $q=CGI->new ;

##</code><code>##

  DB<1> w print "hola" if  ("r" =~ //);
  DB<2> holac
Watchpoint 0:	print "hola" if  ("r" =~ //); changed:
    old value:	'1'
    new value:	''
CGI::_compile(/usr/share/perl/5.12/CGI.pm:867):
867:		($pack,$func_name) = ($1,$2);
  DB<2> holaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholaholahola

  DB<2> p print "hola" if  ("r" =~ //);  

  DB<3>