use feature 'say';
while (<>) {
    @F = split(' ');
    /a/ and say $_ . ' :' . tr/e// foreach (@F);
}