#!/usr/bin/perl -w

open(FILE1, "oldfriends.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 $_;
}
print "$email\n";
close(FILE2);
`mail tgarrett\@transy.edu <letter.out`;
close(FILE3);

}
close(FILE1);