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