c:\@Work\Perl\monks\harangzsolt33>perl replace_1.pl
# replace ALL instances of search string (left-to-right)
ok 1 - ' A' -> '-@' max times (unlimited replacements)
ok 2 - 'A' -> 'xx' max times (unlimited replacements)
ok 3 - ' A' -> '-@' 3 times
ok 4 - 'A' -> 'xx' 3 times (unlimited replacements)
ok 5 - ' A' -> '-@' 4 times
ok 6 - 'A' -> 'xx' 4 times (unlimited replacements)
ok 7 - ' A' -> '-@' 99 times
ok 8 - 'A' -> 'xx' 99 times (unlimited replacements)
# replace ALL instances of search string (right-to-left)
ok 9 - ' A' -> '-@' -3 times
ok 10 - 'A' -> 'xx' -3 times (unlimited replacements)
ok 11 - ' A' -> '-@' -4 times
ok 12 - 'A' -> 'xx' -4 times (unlimited replacements)
ok 13 - ' A' -> '-@' -99 times
ok 14 - 'A' -> 'xx' -99 times (unlimited replacements)
# replace N instances of search string (left-to-right)
ok 15 - ' A' -> '-@' 0 times
ok 16 - 'A' -> 'xx' 0 times
ok 17 - ' A' -> '-@' 1 times
ok 18 - 'A' -> 'xx' 1 times
ok 19 - ' A' -> '-@' 2 times
ok 20 - 'A' -> 'xx' 2 times
# replace N instances of search string (right-to-left)
ok 21 - ' A' -> '-@' -1 times (1 right-most replacement)
ok 22 - 'A' -> 'xx' -1 times (1 right-most replacement)
ok 23 - ' A' -> '-@' -2 times (2 right-most replacements)
ok 24 - 'A' -> 'xx' -2 times (2 right-most replacements)
1..24
ok 25 - no warnings
1..25