while (<>)
{
    if ($_ !~ /^Warning:/)
    { $temp .= $_; }
}