Here's your compiled Perl program:
When the regcomp node is executed, regcomp looks for the /o flag
If it's set, regcomp goes and gets a little scissors