...
 $txt =~ s/(.{1,3}|^$)/sprintf"'%3s'\n",$1/ge;
 print $txt;
 ...