$ cat pm_11137734_input.txt [0..1] [2..4] [5..8] [10..13] #### #!/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]