grep { push(@arr,substr($_,0,19)) }  split (" ",$string);

print join("\n",@arr);