$s="boys are playing";
@a=$s=~/\w/;
foreach(@a){
	print $_."\n";
}

##</code><code>##

@a=$s=~/\w+/

##</code><code>##

@a=$s=~/(\w)/

##</code><code>##

@a=$s=~/(\w+)/