Select Code to Download

my $re = qr(\d{1,2}\.\.\d{1,2});

...
$line =~ /^((?:$re )+$re)/;
my $captured = $1;
my @parts = split ' ', $captured;