Current File : //dh/bin/change_email_header.pl

#!/usr/bin/perl

use strict;

my $header = shift @ARGV;
my $add = shift @ARGV;

$add =~ tr/+/ /;
$add =~ s/\%([A-Z0-9][A-Z0-9])/pack("C",hex($1))/eg;

$add .= ' ' unless $add =~ /\s$/;

# read headers
while (<>) {
	chomp;
	last if $_ eq '';    # end of headers!

	my ($h, $v) = /^(\S+): (.*)/;
	if (defined $h) {
		if ($h eq $header) {
			$v = $add . $v;
		}
		print "$h: $v\n";
	} else {
		print "$_\n"; ## weird
	}
}

# sep
print "\n";

# body
while (<>) {
	print;
}