Select Code to Download

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

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