#!/usr/local/bin/perl
@clef = split '', shift;
@alphabet = split '', 'ABCDEFGHIJKLMNOPQRSTUVXYZ';
@table = ();
foreach my $c (@clef, @alphabet) { push (@table, $c) unless grep /$c/, @table; }
foreach my $i (0..24) { my ($l,$c)=($i/5,$i%5); $table .= $table[$l+5*$c]; }
# print "$table\n";
while (<>) { eval "tr/A-VXYZ/$table/"; print; }