#!/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 = substr($_, $-[1], $+[1] - $-[1]);
	my $value2 = substr($_, $-[2], $+[2] - $-[2]);
	print "GOT $value1 $value2\n";
}