my $count = 4;
my $fnames = "file1 file2 file3 file4 file5 file6";

my @fnames = split ' ', $fnames, $count + 1;

if (@fnames > 4) {
    pop @fnames;
}

say "@fnames";

--output:--
file1 file2 file3 file4