@numbers = (6,210, 3);   # not necessarly consecutive
$templ="test X number ";
print join "\n", map{($str = $templ)=~s/X/$_/?$str:undef}(@numbers);