Why not match?

Hello guys,

I have a simple code, but it doesn't work and don't know why. Please see it
below:

Input file: 1.txt which including number and letter "o" in one line.
               10o10o10

Wanted output file: 2.txt in which 10 represent 10 dots and o is replaced
by letter "x".
               ..........x..........x..........x
The perl code I wrote is below:

#!/usr/bin/perl
use strict;
use warnings;

while(<>){
    chomp;
         if(/^10o|o10o|o10\z/){
       s/10/.………/g;
      }
     s/o/x/g;
     print"$_\n";
   }

And the output file is like ".???x.???x.???" , So patter matching doesn't
work. Don't know why. Could you please give me some suggestion? Thank you
so much!

Xi

• Why not match? by Xi Chen
• Re: Why not match? by Shlomi Fish
• Re: Why not match? by John W. Krahn