Select Code to Download

my @a = ("a  sTrinG\n" );
s#(.)(\w+ ?)#\U\1\L\2#g for @a;
print @a;
__END__
a  string

s{ \b(\w+) }{\u\L$1}gx;