my %new_hash = map /$my_regexp/ ? ( $_ => $original_hash{ $_ } ) : (), + keys %original_hash; [download]
In reply to Re: grep for hash? by jwkrahn in thread grep for hash? by rovf