#!/local/bin/perl

while(<>) {
  if(/^x-requester:(.*)$/i) {
    print "X-Request-User:$1\n";
  } elsif(/^x-request-date/i) {
    print $_;
    print "X-Request-Due:\n";
  }
  else {
    print;
  }
}
