#!/usr/bin/perl

use strict;
use LWP::Simple;
use LWP::UserAgent;

my $data = get("http://www.cyrusoilandgas.com");
my ($wanted) = $data =~ /<!---------------PETROLEUM----------------->\
+s*(.*)\s*<map name="BbgELogin2">/s;
open (FH,"./file.txt") ||die"$!";
print FH $data;
close FH;