DB<1> @a= qw/zero one two three four/

 DB<2> $pi ='three . one four one'

 DB<3> $pi =~ s/$a[$_]/$_/ig for 0..4

 DB<4> p $pi
3 . 1 4 1
 DB<5>