$h="74s117s115s116s32s65s110s111s116s104s101s114s32s80s101s114s108s32s72s97s99s107s101s114";@j=split(/s/,$h);foreach$k(@j){print chr($k);}