C:\Users\peter.jones\Downloads\TempData\perl>perl -T -M5.012 -Mwarnings -MScalar::Util=tainted -le "my %h = (email => $ARGV[0]); print tainted($h{email}); $h{email} =~ m/\b([[:graph:]]+@[[:graph:]]+)\b/g and $h{email} = $1; print tainted($h{email});" me@example
1
0