#!/usr/bin/perl
use strict;
use warnings;
# 864348

$_='qwerty erk';
my $pos;

my $foo = $_ =~ s/r/
        $pos=pos(). "\n";
        print pos(); 
        print "\n"; 
        ++( pos() );
        print "\t" . pos() . "\n";
        print($pos . "\n")/gex;

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

##</code><code>##

3
        4
3

8
        9
8

Now, outside the regex, 8