Help for this page

Select Code to Download


  1. or download this
    >perl -E"$sqr=qr/\[.*?\]/; $_='ab[cd]ef[gh]'; s/$sqr$//; say"
ab
  2. or download this
    >perl -E"$sqr=qr/\[[^\[\]]*\]/; $_='ab[cd]ef[gh]'; s/$sqr$//; say"
ab[cd]ef