$ perl -MO=Deparse japh.pl @j = (('"', 'Just', '"'), @a = 'another', @p = 'Perl', @h = 'hacker', ()), (s//@j,/, s/" //g), print($_); - syntax OK