$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];
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.