Help for this page
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+))/;