#!/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;