Actually, $wanted contains 1 or 0, depending if it matched or not... but adding parentheses thusly

my ($wanted) =  $data =~ /(<!-+PETROLEUM-+>\s*(.*)\s*<map\s+name="BbgE
+Login2">)/s;
[download]

will fix that.

Update: ChemBoy stupid. ChemBoy not have coffee. Bad ChemBoy! (thanks, cLive ;-); sorry, jeffa!)

---

If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders