foreach(@realassert){
my ($theline)=grep{/$_/} @pcov;
push (@thelist, "$theline");
}                                           

##</code><code>##

yphs.pc0.samelogic.fois_ebs.sbetrgt_inst

##</code><code>##

sbetrgt_inst