#!/usr/local/bin/perl

while(<>) {

    chomp;

    $_ = $_ . "\@rpi.edu\n";

    print;

}

