##
#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
my $infile = 'pm_11137734_input.txt';
my @values;
my $re = qr{^\[(\d+)\.\.(\d+)\]$};
{
open my $fh, '<', $infile;
/$re/ && push @values, $1 .. $2 while <$fh>;
}
# For demo purposes only:
use Data::Dump;
dd \@values;
####
[0 .. 8, 10 .. 13]