maybe perl should catch constants here too

[積丹尼 Dan Jacobson]

OK, sorry. I see
$ perl -wle 'sub k{"\n"; 1;}'
Useless use of a constant ("\n") in void context at -e line 1.
does indeed warn. OK.