C:\test>perl -MO=Deparse,p -e" print (shift @a), (shift @a), "\n";"
print(shift @a), shift @a, \'n';
-e syntax OK