my %farben = (
  rot => '#FF0000',
  FARBE_5 => '#801133',
  FARBE_1 => '#111211',
);

while (my $line = <DATA>) {
  for my $f (keys %farben) { $line =~ s|<#$f#>|$farben{$f}|g }
  print $line;
}

__DATA__
body { color: <#FARBE_5#>; font-size=150% }
p { color:<#FARBE_1#>}