#!perl -pl s/ +"( +)?/eval'substr$l,$-[0]'.($1&&",".length$&)/ge;$l=$_