[Perl] Zamiana wyrazen

[Gosik]

Chialabym napisac sktypt, ktory w pliku tekst.inp zamieni mi warosci a i b na odpowienidnie liczby z $i oraz $j i storzy odpowienio pliki tekstowe: tekst'$i$j'.inp

Probowalam w nastepujacy sposob:

Kod: [Zaznacz]

  #!/usr/bin/perl

    open(FILE, "tekst.inp") || die("Error reading file!!!\\n");
    my $lines = join ' ',
    
    for (int $i = 1; i<4; i++){
      for (int $j = 1; j<4; j++)
       $lines = s/a/$i/g
       $lines = s/b/$j/g
    }

close(FILE)

Niestety nie wiem jak to zrobic, by jednoczesnie byly zmianiane wartosci a i b oraz aby zostaly swtorzone inputy o nazwach: tekst'$i$j'.inp

Czy mozecie mi troche pomoc z tym tematem?