Perl

Hunn ech op /. fonnt:

''=~('(?{'.('-[@._}'^']))@+]').'"'.
(')})@.^'^'`]^/@|').',$/})')

Dach, éierlech, dat ass Perl.

Update: D’Zeil woar e bëssen ze laang; fir de copy&paste ze vereinfachen hunn ech et opgespléckt.