Help for this page
if ($r =~ //) { xxx }
#!/usr/bin/perl -w use CGI qw(:standard); my $q=CGI->new ;
DB<1> w print "hola" if ("r" =~ //); DB<2> holac ... DB<2> p print "hola" if ("r" =~ //); DB<3>