#!/usr/bin/perl -w use CGI; # create CGI object $q = new CGI; # extract incoming POST data from STDIN $text = $q->param('text'); $expression = $q->param('expression'); $substitution = $q->param('substitution'); chomp($text); chomp($expression); $out = $text; $result = ""; $out = $text; if ($expression !~ m/[\w{1,}|\.]/ || $expression eq '') { $result = "Unable to handle expression." } elsif ($out =~ s/($expression)/$substitution/g ) { $result = $out; } else { $result = "Found no match."; } print < Regular Exression Tester

Regular Expression Substitution

Text Source:

Regular Expression:

s//  /g

Replaced:



(Substitution is global; does not allow groupings.)
FORM