#!/usr/bin/perl
open FH,'istA.xml';
@contents = <FH>;

@entites = ("&amp;","&quot;","&lt;");
foreach $con (@contents){
if($con =~ m/\&.*;/){
print $con;
}
}