#!/usr/bin/perl -w

$_=   '$m   ess
age   ="i   fmm
p!";$mess   age
=~tr/b-y/   a-z
/;p   rin   t$m
ess   age   ;';

s/\s//g;eval;