Select Code to Download

@j = "Just", @a = "another", @p = "Perl", @h = "hacker"; s//@j,/, prin
+t

@j = ( "Just", @a = "another", @p = "Perl", @h = "hacker" ); s//@j,/, 
+print

@j = (( "Just"    )),
@a = (( "another" )),
@p = (( "Perl",   )),
@h = (( "hacker"  )),

@j = ( '"Just"', @a = 'another', @p = 'Perl', @h = 'hacker',

@j = (( qw)"Just"   )),
@a = (( qw"another" )),
@p = (( qw"Perl"    )),
@h = (( qw"hacker"  )),

@j = ((qw)" Just   " )),
@a = ((qw " another" )),
@p = ((qw " Perl   " )),
@h = ((qw " hacker " )),

@j = ( '"', 'Just, '"', @a = 'another', @p = 'Perl', @h = 'hacker',

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

@j = ((qw)" Just   " )), @a = ((qw " another" )),
@p = ((qw " Perl   " )), @h = ((qw " hacker " )),
(()),),(s""@j,",s (" )))g), print