Help for this page

Select Code to Download


  1. or download this
    perl -e "@re='abcdefg'=~/(..)/g;print join ',', @re;"
#prints ab,cd,ef
  2. or download this
    perl -e "$_='abcdefg';@re=/(..)(?{reverse;chop;reverse;})/g;print join
+ ',', @re;"
ab,cd,
perl -e "$_='abcdefg';@re=/(..)(?{$_=substr($_,1)})/g;print join ',', 
+@re;"
bc,ef,