$ perl -MScalar::Util=tainted -Te " $value = shift; warn tainted $value; if( $value =~ /^([\w|\s|\/|\-]+)$/ ){ $value =
$1; } die tainted $value; " x123uvw1
1 at -e line 1.
0 at -e line 1.