Help for this page
Select Code to Download
Select
or
download this
if($str =~ /([\w\.]+)\@([\w\.]+)/) { $untainted = "$1\@$2"; }