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>