#!/usr/bin/perl
use strict;
use warnings;

open(my $fh, '<', 'EXAMPLE.TXT');

my $regexp = qr/(?<value1>\d+)\s+(?<value2>\d+)/;

while(<$fh>)
{
	next unless /$regexp/;
	my $value1 = $+{value1};
	my $value2 = $+{value2};
	print "GOT $value1 $value2\n";
}


##</code><code>##

1 2
3 4
5 6
7 8
...