But a literal works (for me)... compiler optimizations?

>type pm.pl

{
  my ( 1 ? $foo : $bar ) = "hello";
  print "foo: $foo\nbar: $bar\n";
}
print "foo: $foo\nbar: $bar\n";

>perl pm.pl
foo: hello
bar:
foo:
bar:

>perl -v

This is perl, v5.8.3 built for MSWin32-x86-multi-thread
(with 8 registered patches, see perl -V for more detail)
[download]