use v5.14;
{
    local $_ = "He's out bowling with Fred tonight.";
    s/Fred/Barney/;
    s/with (\w+)/against \U$1\E's team/;
    say;
}