#!/usr/bin/perl -w
# fit.pl - Don Yang (uguu.org)
#
# 05/16/09

use strict;

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

my $infile;
open $infile, "< $ARGV[0]" or die $!;
my $source = join "", <$infile>;
close $infile;
$source =~ s/\s//sg;

open $infile, "< $ARGV[1]" or die $!;
my $template = join "", <$infile>;
close $infile;

my $x = 0;
foreach my $i (unpack 'C*', $template)
{
   if( chr($i) =~ /\s/ )
   {
      print chr($i);
   }
   else
   {
      print substr($source, $x, 1);
      $x++;
   }
}