my $in="foo
bar
foo
bar
foo
senthil";