use strict;
use warnings;

my @array = qw (zero one two);
my $str = "blah ##REP0## blah ##REP1##\nblah ##REP2##\n";

$str =~ s/##REP(\d+?)##/$array[$1]/g;

print $str;