Help for this page

Select Code to Download


  1. or download this
     
s{^\Qmail xmlfeedback -s \E(.*)$}{mail -s $1 xmlfeedback}sgx;

s{^mail xmlfeedback -s ("feed invalid for agent \d+")\s*$}{mail -s $1 
+xmlfeedback}sgx;
  2. or download this
    use Regexp::English;

my $re = Regexp::English
...
print $re;
__END__
(?^:^mail\ xmlfeedback\ \-s(\"feed\ invalid\ for\ agent\ (?:\d+)\")(?:
+\s*)$)