$_=" u,teacohhlreP re tank rs\nJ";
@a=($_,$a=reverse($_));
print chop(@a=@a),chop(@a)for A..M;