Legal in perl5:

 my $foo = foo( 1 );          # A
 my $foo = foo(1);            # B
 my $foo = foo (1);           # C
 my $foo = foo      (    1    # D
           );