How about rewriting pack.pack.pack.pack line like $whirley=" ".pack('C*',176,177,178,219,178,177,176);@whirley=split //,$whirley;