#!/usr/local/bin/perl

$pattern=shift;

while(<>)
{
    if (/^From /)
    {
	print $message if $message=~/$pattern/o;
	$message='';
    }
    $message.=$_;
}