Help for this page

Select Code to Download


  1. or download this
    if ($test =~m#(??{substr($test, 0, 8)})#) {  }
  2. or download this
    use strict;
use warnings;
...

if ($test =~ m!((??{ substr($test,0,$_) }))!) { };
  3. or download this
    
use strict;
...
if ($test =~ m!((??{ print "$_\n";substr($test,0,$_) }))!) {
};
  4. or download this
    fee fi fo free
Argument "fee fi fo free" isn't numeric in substr at (re_eval 1) line 
+1.