$\ = "\n";
$, = ",";
print 'a string' =~ m/(.)(?{print "before mod, pos = ".pos();pos()+=4;print "after mod, pos = ".pos();})/g;
print pos(); #cause error, it is undef, as now we are inside any regexp