#! /usr/bin/perl # 改行を含んだ文字列を用意 $string1 = "本日は晴天なり。\n昨日は雨天なり。\n明日はきっと曇天なり。"; # 実験用にコピー $string2 = $string1; # コピー側から改行を削除 $string2 =~ s/\r//g; $string2 =~ s/\n//g; # 結果の表示 print "--- STRING1 ---\n"; print "$string1\n"; print "--- STRING2 ---\n"; print "$string2\n"; exit;