Select Code to Download

The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

http://search.cpan.org/perldoc?Acme::Tools

use strict;
use warnings;
...
for (my $index = $#array; $index >= 0; --$index){
    splice (@array, $index, 1) if $array[$index] =~ /1|3/;
}