#!/usr/bin/perl

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

$_ = get ("http://www.bloomberg.com/energy/index.html");
$data =~ /<!---------------PETROLEUM-----------------> (.*) <map name="BbgELogin2">/m;
open (FH,"./file.txt") ||die"$!";
print FH $_;
close FH;