$str=
    'yo ho ho and a bottle crumbs. 
hangin and bangin in the upper-class slums.';

@word = ($str =~ /(\w+)/g);

print join ':', @word[0..4];