my $data = get . . . .
$data =~  . . . .

##</code><code>##

#!/usr/bin/perl -w
	
use strict;
use LWP::Simple;

my $data = get ("http://www.bloomberg.com/energy/index.html");
my ($wanted) = $data =~ /<!-+PETROLEUM-+>\s*(.*)\s*<map\s+name="BbgELogin2">/s;

open (FH,'>file.txt') || die $!; # > creates a new file, >> appends
print FH $wanted;
close FH;	# not really necessary in this simple script