#!/usr/bin/perl -w
use strict; foreach (qw(31267 31260 31258 31261 31305 31240 31239
31238 31261 31233 31244 31259 31305 31258 31242 31259 31232 31257
31261 31305 31234 31232 31245 31245 31232 31244)){$_ = $_^ 31337;
($_ = chr)=~ tr/stie/5713/; print;}print chr(10);