C:\>perl -MO=Deparse,-p -e"sub foo{} foo ?bar?
sub foo {

}
foo(?bar?);
-e syntax OK