#!/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>)
{
$_ =~ s/\$first/$first/g;
$_ =~ s/\$last/$last/g;
$_ =~ s/\$age/$age/g;
print FILE2 $_;
}
close(FILE2);
close(FILE3);

}
close(FILE1);