my $x = /(\w+)/;

##</code><code>##

my ($x) = /(\w+)/;