#!/usr/local/bin/perl -w

while(<>) {

    s/@\w+\.\w+//g;

    print;

}

