Although others have pointed out that there is a nice one-pass approach to your problem, it is possible to access the location of a match after the match itself:

my $a = 'abc';
$a =~ /(b)/;
substr($a, $-[1], $+[1] - $-[1], 'B');
print $a, "\n"; # aBc
[download]

See perlvar.