my ($wanted) =  $data =~ /(<!-+PETROLEUM-+>\s*(.*)\s*<map\s+name="BbgELogin2">)/s;