Help for this page

Select Code to Download


  1. or download this
    while ($string =~ /([CSH][CSHL]*[CSH])/g) {
    print "$1, ";
}
  2. or download this
    print join ', ', $string =~ /([CSH][CSHL]*[CSH])/g;
  3. or download this
    for ($string) {
   s/-L+|L+-/-/g;
...
   s/L+$//;
   print join ', ', /([CSHL]{2,})/g;
}