Perl output is overwritten

Question

I have code that iterates over lines in a file and tries to print each line with something added at the beginning and end.

However, I get the conclusion as follows: "rated cows."

Basically, a bit after a line (nominal) overwrites its beginning. I know that deleting the chomp and regex lines stops this effect, but I need it to be on the same line without spaces. Where am I mistaken?

while ($line = <INPUT>) { chomp $line; $line =~ s/ //g; printf "\@attribute %s nominal\n", $line; } 

Answer 1

Your input file is probably from MS Windows with the end of the line encoded as CR-LF. You can also just s/\r// remove the CR.

Answer 2

Your variable may have \r . Try using \s :

 $line =~ s/\s//g; 

See perlre for the value of \s .