$ perl -MO=Deparse,-p - print( "x" ~~ ("x", "y", "z") ); ^Z print(('x' ~~ ('???', '???', 'z'))); - syntax OK