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

my (@copy, $copy, $i);
@copy = split (/\s/, <DATA>, 16);

for (0..14) {
	print $copy[$_] . " ";
}

__DATA__
Pull out only the first 15 words from the pubText field. This is where I need suggestions, the code below does not work.