chomp

chomp

#!/usr/bin/perl

print "Content-type:text/html\n\n";

$string = "acha\n";

print "改行含んだ文字(string) = $string<br>";

$string_s = $string;
$string_s =~ s /[\n\r]/**/g;
print "（改行がある事が見えないのでstringをコピーして）改行を**に置換(string_s) = $string_s<br>";

chomp $string;
print "改行をchompで削除後(string) = $string<br>";

$string =~ s /[\n\r]/**/g;
print "（改行が削除されている事が見えないので）改行を**に置換(string) = $string<br>";

●出力結果
改行含んだ文字(string) = acha
（改行がある事が見えないのでstringをコピーして）改行を**に置換(string_s) = acha**
改行をchompで削除後(string) = acha
（改行が削除されている事が見えないので）改行を**に置換(string) = acha

chopという最後の文字を無条件に削除する関数もあります。
改行が目的ってことならchompの方が良いと思いますが、人の好き好きです。