while(<$fh>){
   print unless m{/[*]} .. m{[*]/};
}