Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        print($pos . "\n")/gex;

print "Now, outside the regex, $pos";

3
        4
3
...

Now, outside the regex, 8