my ($foo) = $string =~ /(\w+)/;