$ perl -MScalar::Util=tainted -lT -e '($o)=$ENV{PWD}=~/(.*)/gio;print tainted( $_ ) for ( $o, $ENV{PWD} )'
0
1