Any suggestions

• Don't abandon strict and warnings, you need them if you want to cut your development time in half!
• Don't shell out (backticks) or if shelling out, do use taint mode (-T)
• Do use quotemeta when constructing a regex, or you could even use Regexp::English - Perl module to create regular expressions more verbosely
• Do incorporate the answers (code) you asked for and got, and don't switch to shell/grep
• Read perlintro keys, each, http://perldoc.perl.org/perlop.html#Relational-Operators
• Read Tutorials Data Type: Hash