#!/usr/bin/perl -w -T

use strict;

my $mail;

open(MAIL, "example.txt");
{
  local $/;
  $mail = <MAIL>;
}
close(MAIL);

study $mail;

$mail =~ /^To:\s\w+\@\w\n/m;