~ 16> perl -Mwarnings -le 'my $var; if($var =~ /t/){print $var;}'
Use of uninitialized value in pattern match (m//) at -e line 1.