perl -e'$_=`perl -v`;while(/\d\,(\s\x4c[^\n]+)/){print"\r".$1;print"\r"," "x10;print"\r".reverse$1}'