Perl code - 1 line

Link:

Perl, pasted on Feb 23:

1	my @a = ();@a = qw(print 'my @a = ();@a = '."qw(@a); @a;"); print 'my @a = ();@a = '."qw(@a); @a;";

Output:

1	my @a = ();@a = qw(print 'my @a = ();@a = '."qw(@a); @a;"); print 'my @a = ();@a = '."qw(@a); @a;";