$x =~ s[(.{0,3}|)]["'$1" . (' ' x (3-length($1))) ."'\n"]ge;