while (<FH>) {
    chomp;
    my $record = $_;
    for (0 .. 1) {
        $record =~ m/ ... /xg
            and print "matched: $1\n";
    }
}

##</code><code>##

while (<FH>) {
    chomp;
    my @all_matches = m/ ... /xg;
    my @first_few   = @all_matches[0 .. 1];
}