#!/usr/bin/perl use CGI; $cgi=new CGI; print("Content-type: text/html\n\n"); print<<"EOF"; EOF $string=$cgi->param('string'); $re=$cgi->param('re'); print<<"EOF";


$string
$re

EOF

while ($string =~ /$re/g){
$howMany++;
print<<"EOF";
$`$&$'
EOF
}

print<<"EOF";
Found $howMany occurrences of your regular expression.

EOF