use File::Slurp;
my $text = read_file('input.txt');

while ($text =~ /" (.*?) "/sg) {
  print "Found quoted string with ".split(' ', $1)." words: $1\n";
}