#!/usr/bin/perl
# fit.pl - Don Yang (uguu.org)
#
# 08/07/05

die "$0 <template> <source>\n" unless $#ARGV == 1;

open INFILE, "< $ARGV[0]" or die $!;
@template = unpack 'C*', (join '', <INFILE>);
close INFILE;

open INFILE, "< $ARGV[1]" or die $!;
($s = (join '', <INFILE>)) =~ s/\s//g;
close INFILE;

for($i = 0; $i <= $#template; $i++)
{
   $c = chr($template[$i]);
   if( $c =~ /\s/ )
   {
      print $c;
   }
   elsif( $c eq 'r' )
   {
      print 'X';
   }
   else
   {
      print substr($s, 0, 1);
      $s = substr($s, 1);
   }
}