$ perl -wce '1; "ds"; "di"; "ig"; 0' -e syntax OK $