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

my $string = 'firstfield second field KNOWNWORD alwaysOneWord then one or more make the last field';

my (@fields) = $string =~ / ^ (\S+) [ ] (.*?) [ ] KNOWNWORD [ ] (\S+) [ ] (.*) /x;
for my $i (0 .. $#fields) {
    print "$i:$fields[$i]\n";
}