in reply to working with files

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

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

[download]
--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

In Section Seekers of Perl Wisdom