- or download this
The regular expression:
...
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------
- or download this
http://search.cpan.org/perldoc?Acme::Tools
- or download this
use strict;
use warnings;
...
for (my $index = $#array; $index >= 0; --$index){
splice (@array, $index, 1) if $array[$index] =~ /1|3/;
}