use Tie::File;
my $filename = 'filename.html';

tie @file, 'Tie::File', $filename 
    or die "Couldn't open '$filename': $!";
for (@file) {
    s/^ {2}//;
};