#!/usr/bin/perl -w

open(FILE1, "friends.txt") || die "Can't open file";

while(<FILE1>)
{
  ($name, $age, $email) = split (/:/, $_);
  ($first, $last) = split (/\s+/, $name);
  
  open(FILE2, ">letter.out") || die "Can't open file";
  open(FILE3, "formletter.txt") || die "Can't open file";

  while(<FILE3>)
  {
    print FILE2 $_;
  }
  close(FILE2);
  close(FILE3);

}
close(FILE1);