print "first\n";
while (<STDIN>)
{
print;
print "***\n";
last if(eof);
}

print "second\n";
while (<STDIN>!=eof)
{
print;
print "***\n";
}

print "\nthird\n";
while ((chomp($tst=<STDIN>))!=eof)
{print $tst ;
print "***\n";
}