This works for me:
#! /usr/bin/perl use strict ; use warnings ; my @arr = qw/ cidaris see doing / ; my $str = <<'EOD' ; Hello, ##REPLACE##. Nice to ##REPLACE## you. How are you ##REPLACE## today? EOD my $i = 0 ; $str =~ s/##REPLACE##/$arr[$i++]/g ; print $str ;
In reply to Re: Sequential Replacement
by DamnDirtyApe
in thread Sequential Replacement
by cidaris
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |