Help for this page

Select Code to Download


  1. or download this
      s/,.*(cd)?.*,/=$1=/
  2. or download this
      echo ,abcdefg,abcdefg | perl -pe 's/,.*?(cd)?.*?,/=$1=/'
  3. or download this
      echo ,abcdefg,abcdefg, | perl -pe 's/,(?:(?!cd).)*(cd)?.*?,/=$1=/'
  4. or download this
      echo ,abcefg,abcdefg, | perl -pe 's/,(?:(?!cd).)*(cd)?.*?,/=$1=/'