Hey there,

Hint: Use recursion...

I wrote minesweeper as my first perl program ever,
you can find it here, check it for some maybe useful
stuff

It`s VERY simply set up... I wouldn`t code like that
anymore, yet still... it might help

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;