open(F, "<prof.xml");
while(<F>)

{
$_ =~m/(<emp>.*<\/emp>)/m);

print "$1\n";
}