#!/usr/bin/perl -T -w
use less;# bad punctiation
use strict;# grammar and
no strict;# rules of form
BEGIN{;;close eval{uc('stderr')};
$time=qq#quay ore cannot sea. Eye 
    have my pea weight for I can threw 
 it. shews me your pleas rarely grate! 
its weigh.                 When i strike 
a nose bee                 came with It's 
 rarely strait              a this poem 
   plainly marques 
    maid It four my 
       word I aye mist 
            a spelling eye 
                 am tolled me My 
                     chequer late and 
                        perfect in I've 
                        run see. It steaks 
 eye write It            fore two say Whether 
wrong oar sew .           Its letter ache is 
too no revue,  	         Miss era rite put the 
chequer. It I'm        shore it too right a way.
 As soon as#;}; my@life=reverse map{my$squeeky=
 join('',reverse(split('',$_))) } qw%wes dellot 
    yM sti tcefrep stI oot ruoy m'I werht siht 
     ev'I ylerar s'tI are tup I etal erof 
           eson diam ehca eya noos 
	     .yaw tiarts swehs
etirw gnorw eye yas ti thgiew drow thgir yauq ekirts 
nehW tonnac skaets ,euver ruof ylnialp .ees ym emac 
.reuqehc a eyE%; my%modern=split(/\s+/,$time);my$z;my
@eno=1x2;map{ my$g="";lc($_)eq($_) && ($g.=$".$_)||(
$g.=$/.$_);(lc($modern{$_}) eq $modern{$_} )&& ($g.=
$".$modern{$_})||($g.=$/.$modern{$_});print $g} @life;