Perl code - 4 lines

Link:

Perl, pasted on Sep 1:

$abc="hello world";
@abc=('$abc',"dataabc");

print eval @abc[0];

Output:

1	hello world