you just need to substitute the first line by nothing in $wanted. using .*? instead of .* in you first regexp also improves performances quite dramatically.

#!/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*<!-+POWER-+>/s;  #
+ the .*? speeds up processing considerably
$wanted=~ s/^[^\n]*\n//s;                # just remove the first line
open (FH,'>test_remline.txt') || die $!; # > creates a new file, >> ap
+pends
print FH $wanted;
close FH;    # not really necessary in this simple scrip
[download]

I feel I have to warn you that what you are doing is probably quite risky as you rely on comments in the HTML that Bloomberg can probably change at will, plus of course parsing HTML with regexps is not the best way to do it: you might want to look at HTML::Parser or HTML::TableExtract. And the .* construct leads to numerous problems described in Ovid's famous Death to Dot Star! post (although personally I don't have a problem with .*?).

Please use Super Search and Search before asking questions.
You must of missed my CB reference to Deleting the first line of a file.
As an exercise, use your title in the search box (upper left).

I saw the code and have updated it as follows. The darned first line is still there.

#!/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*<!-+POWER-+>/s;

open (FH,'>../data/file.txt') || die $!; 
print FH $wanted;
close FH;    


open(FH, '+< ../data/file.txt') || die "Could not open $myfile $!\n";
@bar=<FH>;
shift(@bar);
seek(FH, 0, 0);
truncate(FH, tell);
print FH @bar;
close(FH);
[download]

Here is an example:

use strict;
 
my $data="The first line
the second line
the third line
the last line.
";
 
my @lines= split(/\n/, $data);
shift @lines;
print join "\n", @lines;
print "\n";
[download]

It should work perfectly the first time! - toma