$i = 0;
@no = qw(one two three four five);
foreach ( @no ){
  my $str = '';
  while( s/([^e]*)e// ){
    $str .= $1 . "fee" . $i++;
  }
  $_ = $str . $_; #UPDATED: Append addresses Re: to this node
}
print "@no\n";