Sorry for that, but it was working before I formated the code into the Pacman-Ghost-ASCII-art.

I'll update the code soon (together with a Spoiler..)

--
#!/usr/bin/perl -w just another perl hacker
print+seek(DATA,$=*.3,@-)?~~<DATA>:$:__DATA__