#!/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";

print "Files opened.\n";
}
close(FILE1);