$ perl -wE 'say +"foo"'
foo
$