open(d1,"<f1.txt") or die "cant open file";
  `enter code here`while(<d1>)
      {
          $l=$_;
          if($l=~/^d+.*.$/)
          {
               print $l;
          }
     }
     close(d1);