;)

Perl:
[perl]$;=q:;:;$:=$;;s:$;:;:;$=~s;.*;;);||s-_&“_-%*$+_-og;print[/perl]