use strict;
#use warnings;

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