Help for this page

Select Code to Download


  1. or download this
      DB<34> $_='abbbbbbbbbba'

  DB<35> x m/^(.) ( (?!\1) . )* \1$/x
0  'a'
1  'b'
  2. or download this
    #!/usr/bin/perl

...
        print " 2- No match.\n";
    }
}
  3. or download this
    'abc"def'
 1- Got a match: delimiter was {'}, body was {abc"def}
...
 1- Got a match: delimiter was {'}, body was {ab'}
 2- No match.