open (FILE, "<messages.txt") or die ("Name the input file 'messages.txt' and make sure it is in the correct directory.");
open (DANIEL, ">Daniel.txt");
open (STEFFI, ">Steffi.txt");


@lines = <FILE>; #reads the file into an array, with each element in the array containing one line
$numberOfLines = @lines; #number of elements in the input array
$lineNumber = 0;
$printto;

while ($lineNumber < $numberOfLines) {
  if ($lines[$lineNumber] eq "Daniel Lastname") {
		$printto = "Daniel";
	}
	if ($lines[$lineNumber] eq "Steffi Lastname") {
		$printto = "Steffi";
	}
	
	
	
	if ($printto eq "Daniel") {
		print DANIEL "$lines[$lineNumber]";
		$lineNumber++;
	}
		
	if ($printto eq "Steffi") {
		print STEFFI "$lines[$lineNumber]";
		$lineNumber++;
	}
}
close(DANIEL);
close(STEFFI);