Select Code to Download

  foreach my $str ("one", "two", "three") {
      if ($str =~ /^t/) {
...
          print "'$str' does not start with 't'\n";
      }
  }