It actually behaves like

sub say (_)          # <-- ADD THIS
{
    local $\ = "\n";
    print @_;
}
[download]