#!/usr/bin/perl 
#
#This simple script turns a piece of text into a string of capital
#letters, discarding everything that is not a letter. It is useful for
#TATCification.

while(<>)
{
    chop;
    tr/a-z/A-z/;   #Uppercase
    s/[^A-Z\n]*//g;  #Remove non-letters
    print;
}