каша )))))

use strict;
$_ = "white pretty cat\n";
print;
if (s/(\w+) (\w+)/$2, $1/) { print "Begin changing $2 cat!!!\n";
}
s{^}{huge, };
s#,.*te##; s<\w+$>{($`!)$&};
s[\s+(!\W+)]{$1 }; s%huge%Fat%;
s[$]{asaur !!!\n}; s*^*AAAA!!! *;
print; s/(\bc.*\b)/\U$1/gi; print;