#!/usr/bin/perl -w

use strict;

my $string = "abacab";
print "$string\n";

my $pattern = "a";
my $better = "A";
my $n=1;
my $i=0;

$string =~ s/($pattern)/$i == $n ? $better : $1; i++/ge;

print "$string\n"