$teststring =~ /(\w+)/ ...