perl -e 'my @ar = qw( adf "afaf faf ff" af "abf"); $_ =~ m/^\".+$/ && print "Yes=",$_,"\n" foreach(@ar);'