in reply to Truncate Data from MySQL

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

[download]

In Section Seekers of Perl Wisdom