Select Code to Download

my %new = hmap {
    exists $b->{ nick } && $b->{ nick } =~ m[^(?:rbush|fred)$]
        ? ( $a => scalar hgrep{ $a =~ m[^(nick|phone)$] } $b ) 
        : ()
} \%old;

#! perl -slw
use strict;
...
  5 => { nick => "fred", phone => 1112300 },
}