my $test="Hallo Welt -- oder so, solange ein paar os vorkommen\n";
my $i=0;
$test=~s#o#"(".$i++.")"#ge;
print $test;# Hall(0) Welt -- (1)der s(2), s(3)lange ein paar (4)s v(5)rk(6)mmen