Help for this page

Select Code to Download


  1. or download this
    $s = 'alter string-N-U-M-B-E-R-O-N-E and string-N-U-M-B-E-R-T-W-O.';
    
    $s =~ s/(\S+([[:upper:]]-){2,}[[:upper:]]\b)/%$1/g;
    
    print "$s\n";
    
  2. or download this
    $s =~ s/(?=\S+([[:upper:]]-){2,}[[:upper:]]\b)/%/g;