while ($data =~ m/^(.*)$/gm)
{
	print "<2>" . $1."\n";
}