#!perl -l

print substr($_, 0, index($_, '@')) for @emails;