open(IN, 'input.txt') or die $!;

print map { "output: $_" } grep { /^@/ } <IN>;