The DollarUnderscore and related variables are all evil. The following is a use of two of them in PerlLanguage at once:
while(<>) { if /begin\w+(.*?)\w+end/ { print $1, "\n"; } }
CategoryRant*
CategoryPerl