Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
}

print Dumper(\@broken_up);
  2. or download this
    $VAR1 = [
          [
...
            '10'
          ]
        ];
  3. or download this
    @array = qw( 1 2 # 3 4 5 # 6 7 8 9 # 10);
@array = grep { $_ ne '#' } @array;
print "@array\n";
  4. or download this
    1 2 3 4 5 6 7 8 9 10