Please refer to the recent thread "How can one use the print function to get the correct information?"
I have already solved the problem myself. Thanks to every Perl Monk who has helped in my endeavour.

... and also, what was your solution so that other monks may benefit from it? (And if you're starting a new thread, a link back to the original thread – which was updated, of course, to reflect the fact that you arrived at a solution! – would be welcome.)