#!/usr/local/bin/perl

while (<STDIN>) {
    s/moltmans\@ai\.mit\.edu/klivescu\@mit\.edu/;
    print;
}