Select Code to Download

grep { /x/ } @source;

grep( /x/, @source );

grep /x/, @source;

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

grep s/\D//g && f( $_ ) > $_, @source;