@first_thirty[0..29] = split " ", $string;

##</code><code>##

$first_thirty = join " ", (split " ", $string)[0..29];