@a=('\' x 74,'\' x 117,'\' x 115,'\' x 116,'\' x 32,'\' x 65,'\' x 110,'\' x 111,'\' x 116,'\' x 104,'\' x 101,'\' x 114,'\' x 32,'\' x 80,'\' x 101,'\' x 114,'\' x 108,'\' x 32,'\' x 72,'\' x 97,'\' x 99,'\' x 107,'\' x 101,'\' x 114);foreach $a(@a) {print length $a, ",";}