Help for this page

Select Code to Download


  1. or download this
    if ($tainted =~ / ^              # don't start mid-string
                      \s*            # skip any leading space
    ...
                      \s*            # skip any trailing space
                      $ /x)          # don't end mid-string
        { $untainted = "$1\@$2"; }