my $ShowStart = '(?{ print "starting\n" })';
    
m{ $ShowStart some regex...  }x;




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl