Select Code to Download

  $pattern = '[aeiou]';
  ( $s1, $s2, $s3, $s4 ) = qw( name nerd noodle froodle );
...
  }
  printf "now:  '%s'\n", join("'   '",$s1,$s2,$s3,$s4);
  printf "now:  '%s'\n", join("'   '",@a);

  my @look_for = ($name,$nerd,$noodle,$froodle);