Re: validating a quoted string

[poj]

Maybe use Text::ParseWords

#!perl
use strict;
use Text::ParseWords;

while (<DATA>){
  chomp;
  my @parts = quotewords('\s+',0,$_);
  print join "|",@parts,"\n";
}

__DATA__
"my" "dog"
"my" "dog shepherd"
my dog
my "dog shepherd"
"my "dog"
my "dog shepherd

poj