lanx:/tmp$ perl -MO=Deparse,-p,-q -e 'print "${X()} ${X()}\n"'
print((((${X();} . ' ') . ${X();}) . "\n"));
    
lanx:/tmp$ perl -MO=Deparse,-p,-q -e 'print "${X()}${X()}\n"'
print(((${X();} . ${X();}) . "\n"));