open(IN, "<input.txt") or die $!; 
while(<IN>) 
{ 
    chomp;
    next unless /^@(+.)/; 
    print "output: $1\n"; 
} 
close(IN);
[download]