Select Code to Download

use strict;
use warnings;

my ($ikegamiRe1) = map qr/$_/, join '|', map "(?<=$_{3})$_+", map quot
+emeta,
    1 .. 9;

Use of uninitialized value in concatenation (.) or string at noname.pl
+ line 4.
Use of uninitialized value in concatenation (.) or string at noname.pl
+ line 4.
...
Use of uninitialized value in concatenation (.) or string at noname.pl
+ line 4.
Use of uninitialized value in concatenation (.) or string at noname.pl
+ line 4.
Use of uninitialized value in concatenation (.) or string at noname.pl
+ line 4.

use strict;
#use warnings;
...
print $str, "\n";
$str = join '|', map "(?<=$_{3})$_+", 1 .. 2;
print $str;

(?<=1{3})1+|(?<=2{3})2+
(?<=)1+|(?<=)2+