Select Code to Download

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

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

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

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