pacman shapes and perl script for sprites