Select Code to Download

use warnings;## good line to have.  use strict; is also prudent
$x=undef;    ## I explicitly set it to undef here]
...

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