Select Code to Download

++$counted_quotes while $string =~ /"/g;

my $string = 'first-item "second item" ' .
 'third-item "fourth item"';
...
print 'Unquoted: ',
 join(', ', @{$items{'unquoted'}}),
  "\n";