#!/usr/athena/bin/perl
#
#  This is a string-together-every-third-letter decoder for the
#  1996 IAP Mystery Hunt.  This was used for the crypt text line on
#  the foot of every page of puzzle 13 (the late handout).

use Getopt::Std; &getopt('s');

if( $opt_a ) {
    # do all the text
}

@text = split( //, $opt_s );
$j=0;
for( $i=$j; ; $i+=3 ) {
    if( $i > $#text ) {
	if( $j >= 3 ) { last; }
	else {
	    $j++;
	    $i = $j;
	}
    }
    print $text[$i];
}
print "\n";