Help for this page

Select Code to Download


  1. or download this
       @word =~ m/\w{2}/i;
  2. or download this
       foreach my $word (@word) {
     if ($word =~ m/^[A-Z]/) {
     if ($word[0] ne "[Sidenote:") {
       $name = $word[0]." ".$word[1];
  3. or download this
    my @names = $letter =~ /\b[A-Z][a-zA-Z]+\s+[A-Z][a-zA-Z]+/g;