#!perl -lp
s/\B/,/g;/ /;$_="@{[<{$`}{$'}>]}"