Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

if ($test =~ m!((??{ substr($test,0,$_) }))!) {};
  2. or download this
     DB<1> V main          # $_ never appears after this command
 DB<2> s
...
  DB<4> s
Argument "fee fi fo free" isn't numeric in substr at (reeval 2)[bah4.p
+l:6] line 1.