$_="Perl in a box";
for(/\S/g){
@_=(@_=>lc)
}