A Bigger Example

#!/arch/unix/bin/perl -lp
while ( /(\w+)(\@ccs\.neu\.edu)/g ) {
    my ($username, $suffix) = ($1,$2);
    my $fn = ( getpwnam($username) )[5];
    s/$username$suffix/$fn/ if $fn;
}

• /proj/crew/bin/e2n.pl