use warnings;## good line to have.  use strict; is also prudent
$x=undef;    ## I explicitly set it to undef here]
             ## even if I commented this, though, I'd have
             ## the same warning

($s)=$x=~m/regex/; ## $x is undefined, and produces warning
print $s;          ## presumably, I wanted $s for something