Select Code to Download

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"; }