grep { my $x = $_;
       $x =~ s/\D//g;
       my $y = f( $x );
       ( $y > $x ) } @source;