#!/usr/bin/perl map {print chr($x+=(ord("€")-ord))}(split "","6U‚Ô_S{ŒƒsÒPks†ÌXg~x†s +è"); [download]
In reply to Just another JAPH one-liner by ryddler