#! /usr/bin/perl

$tekst =~ tr/A-Za-z/F-ZA-Ef-za-e/;
print ("$tekst\n");