#!/usr/bin/perl

use strict;
use warnings;

=head1 DESCRIPTION

tricky_html_filter.pl - filters the stuff i want

  - changes background-color to #fff
  - <insert other filter description here>

=head2 USAGE

  perl tricky_html_filter.pl foo.html

=cut

##</code><code>##

my $file = shift || 'E:/path/to/dummy1.html';
open INFILE, '<', $file, or die "$!: can't open $file\n";

##</code><code>##

while (<INFILE>) {
    s/(background-color:#)(?:[0-9a-f]{6}|[0-9a-f]{3})/$1ffffff/i;
    print;
}

##</code><code>##

while (<INFILE>) {
    print;
}

##</code><code>##

while ($_ = <INFILE>} {
    print $_;
}

##</code><code>##

while (my $line = <INFILE>} {
    print $line;
}

##</code><code>##

s/(background-color:#)(?:[0-9a-f]{6}|[0-9a-f]{3})/$1ffffff/i;

##</code><code>##

$1ffffff

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

=head1 DESCRIPTION

tricky_html_filter.pl - filters the stuff i want

  - changes background-color to #fff
  - <insert other filter description here>

=cut

my $10ffffff;

my $file = shift || 'foo.html';
open INFILE, '<', $file, or die "$!: can't open $file\n";

while (<INFILE>) {
    s/(background-color:#)(?:[0-9a-f]{6}|[0-9a-f]{3})/$1ffffff/i;
    print;
}

##</code><code>##

perl -pi -e"s/(background-color:#)(?:[0-9a-f]{6}|[0-9a-f]{3})/$1ffffff/i" /path/to/dummy1.html

# be sure and replace " with ' if you run this on *NIX