Thank you for your response. Updated the reference to Mastering Regular Expressions above. Can you please explain how the previous code was superior? I see the indentation problems that you are referring to, and I tried to be sure to follow the guidelines specified in perlstyle, i.e. 4 space indentations, curly brackets on same line or lined up vertically, space around most operators. Should I have used

 $theme_table{$1} = $2 if (/regex/); instead of  if (/regex/) { $theme_table{$1}

or

foreach my $table (@_) {
    foreach my $key (sort keys %$table) {
        print "$key => $table->{$key}\n"
    }
    print "\n";
}
[download]

foreach my $table (@_) { 
        foreach my $key (sort keys %$table) { print "    $key => $tabl
+e->{$key}\n" }  
        print "\n";
}
[download]

If you could clarify exactly where it is that I'm missing the mark stylistically it would be greatly appreciated. I think good style is the most difficult thing to learn out of a book. Thanks again for your help.