open FH, ") { chomp $line; my @a = ($line =~ /('{1}.*?'{1}(?=\s+)|\S+)/g); print join('|', @a) . "\n"; } close FH;