Select Code to Download

#!perl

...
        }
    }
}

if ($n = ((/^<foo/) .. ($_ eq '</foo>')))
{
...
        ...; # process the content
    }
}

if (/^<bar/ && /\/>$/)
{
    ...; # get the attribute(s) and value(s)
}