abc def data 123 ghi jkl "data with spaces" 456 #### abc-def-data1 ghi-jkl-data with spaces #### print "$1-$2-".($4 || $3) if /(\w+)\s(\w+)\s("([^"]+)"|(\w+))/;