#!/usr/bin/perl
# encode.pl - Don Yang (uguu.org)
#
# 08/24/03


use strict;

my (@data, $line, $i, $c);


die "$0 <text> <format>\n" unless $#ARGV == 1;

open TEXT, "< $ARGV[0]" or die $!;
open FORMAT, "< $ARGV[1]" or die $!;

$i = '';
while( $line = <TEXT> )
{
   chomp $line;
   $line =~ s/\s//g;
   $i .= $line;
}
@data = unpack 'C*', $i;

while( $line = <FORMAT> )
{
   foreach $i ($line =~ /./g)
   {
      if( $i ge 'A' and $i le 'Z' )
      {
         $c = ord($i) - ord('A');
         for($i = 0; $i <= $c; $i++)
         {
            print chr(shift @data);
         }
      }
      elsif( $i ge 'a' and $i le 'z' )
      {
         print ' ' x (ord($i) - ord('a') + 1);
      }
      elsif( $i eq '.' )
      {
         print "\n";
      }
   }
}

close TEXT;
close FORMAT;