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

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/ || $c =~ /[#@]/ )
   {
      print $c;
   }
   else
   {
      print substr($s, 0, 1);
      $s = substr($s, 1);
   }
}