while <anyfile> {
     if (/xyz/) {
      print $_;
       }
      }