while(<>){
   if(/the/){    #does $_ contain the
      print "Your line of text contains the word 'the'\n";
   }
}

##</code><code>##

@machines_os=("OpenBSD","Windows","Linux", "Windows");
foreach(@machines_os){
   s/Windows/Linux/;
}