#!/usr/bin/perl # ROT-13 text while(){ tr/a-zA-Z/n-za-mN-ZA-M/; print; }