if ($n = ((/^<foo/) .. ($_ eq '</foo>')))
{
    if ($n == 1)
    {
        ...; # get the attribute(s) and value(s)
    }
    elsif (rindex($n,'E0') < 1)
    {
        ...; # process the content
    }
}