- or download this
my @res = grep { !/$tmp/ } @array;
- or download this
use 5.020;
use Data::Dumper;
...
say Dumper \@positive; # 'rerere'
say Dumper \@negative; # 'rerere', 'foo'
- or download this
use 5.020;
use Data::Dumper;
...
say Dumper \@positive; # 'rerere'
say Dumper \@negative; # 'foo'