$proteinfilename=<STDIN>;
chomp $proteinfilename;

open(FILENAME,$proteinfilename);
@array=<FILENAME>;
if (
@array=~m (/^AD/)){
print " @array";
}