For the text file example in the "Q", that split should be my ($cat, $item) = split ' ', $_; so that the magic split on space will be in force, why the original "Q"er was doing it that way, I have no idea.

--
$you = new YOU;
honk() if $you->love(perl)