#!/usr/bin/perl

$string = "DQEVFOZIFODAZQ";
$string2 = "DQEVFOZIFODAZQ";

@alpha = ( "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z" );

$alpha = join("",@alpha);
$cypher = join("",@alpha);

while (<STDIN>) {

	@cypher = split(//,$cypher);
	push(@cypher,shift(@cypher));
	$cypher = join("",@cypher);

	eval "\$num = \$string2 =~ tr/$alpha/$cypher/";

	print "$num : $alpha: $cypher -> $string2";

	$string2 = $string;

}

exit;