#pull out only the first 15 words from the pubText field 
@copy = ( split ' ', $data->{ pubText } )[ 0 .. 14 ];