my $s = 'foo|foo|foo';
my $p = do { $s =~ /foo/g; pos $s };
$s =~ s/foo/pos $s >= $p ? 'bar' : 'foo'/ge;
print "$s\n";
[download]