I dunno. What does your warning message look like?

I'd do something like this (presuming my warning messages had this format):

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

HTH.

ALL HAIL BRAK!!!