#!/usr/bin/perl -p
BEGIN { @ARGV = () }
chomp;
s{( '[^']*' | "(\\.|[^\\"])*" | [][(){}] | [0-9.]+ | \w+\s* | [^][(){}"'\w\s]+\s* | \s+ )}{$1\n}gx;
$_ = "$_\n";