moo@cow[91]~>perl -we 'my $s; $s =~ /./'
Use of uninitialized value $s in pattern match (m//) at -e line 1.
moo@cow[92]~>perl -we 'my $s = ""; $s =~ /./'
moo@cow[93]~>