请教如何获取文件中的特定字符串

请帮忙看看，我对perl不熟悉。
脚本的功能是：读特定目录/usr/local/bin/tmpmail/下的邮件文件，读出其中的收件人地址，然后发出去,发邮件时写条系统日志，日志包含收件人地址，发送成功与否。

文件格式如下：

Subject: test Web Security Report Mon Apr  7 20:35:31 2008
From: liuszhotmail.com
To: liuszhotmail.com
Date: Mon Apr  7 20:35:31 2008
Mime-Version:1.0
X-mailer:Linux mailagent
Content-Type:multipart/mixed;boundary="=====test_mailagent====="

--=====test_mailagent=====
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: 8bit

Sent from test system test on date: Mon Apr  7 20:35:31 2008


--=====test_mailagent=====
Content-Type:application/octect-stream;name="filetest.zip"
Content-Transfer-Encoding:base64
Content-Disposition:attachment;filename="filetest.zip"


希望得到文件中的mailto 地址，


我的脚本如下：


#!/usr/bin/perl -w
use File::Basename;
$myname = basename($0);
@pids=split(/\n/, qx/ps -C $myname -o pid=/);

if ($#pids > 0)
{
  # Exit if the last instance of this script still has not finished
  exit;
}
@files = </usr/local/bin/tmpmail/*>;
foreach $file (@files)
{
  if($file =~ m/(\/.+)+\/_lock_/)
  {
next;
  }
   get_mailto_address($file);
   send_mail($file);
}


sub get_mailto_address
{
        open my $fh,"< ",$file or die;
        $fh = shift;
        my $line = <$fh>;
        print $line, "\n";
        read $fh, my $buffer, 1024;
        print $buffer, "\n";
        close( $fh );
}

没看懂你想干什么