#!/usr/bin/perl -w

use strict;

my $string = "foo" x 4;
print "$string\n";

my $pattern = "foo";
my $better = "bar";
my $n=1;
$string =~ s/^(($pattern){$n})$pattern/$1$better/;
print "$string\n";