$ perl -e'print prototype( "CORE::splice"),$/'
\@;$;$@