perl5.8 -e'my $x= undef() // 1;'
Search pattern not terminated ...