#!/usr/bin/perl

map {print chr($x+=(ord("€")-ord))}(split "","6U‚Ô_S{ŒƒsÒPks†ÌXg~x†sè");