By no means am I discounting the other methods, but I really like this one-liner due to my haphazzard knowledge of regex:
This is exactly what I was looking for even though I was no where near explicit about what I wanted.
I'm already applying this method to a few more scripts. The map was cool too.
I am somewhat curious as to the extensive use of Data::Dumper instead of print-ing %hash?