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