open(IN, "<input.txt");
while(<IN>)
{
        s#\@(.*?)\n##;my $temp=$1;
        print "output: $temp\n";
}
close(IN);