こんにちわ。
データの中にある特定の文字を消したいんですが、うまくいかないです。
while(<IN1>){
chomp;
@data = split(/-/, $_);　＃これは無視して下さい
@data2 = join(' ', @data);
という手続きで読み込んだデータをﾀﾌﾞでつないで格納しましたが
都合上、全ての行に
red apple
red fire
てな感じで、ﾀﾌﾞで区切られずひとくくりにされてしまう箇所があります。
この中の"red "だけを全ての行から取り除いて残りをそのまま出力したいんですが
可能ですか？
初心者ながら置換をしてみようと
$data2 =~ s/Level1 //g
print OUT1 "$data2\n";
というﾌﾟﾛｸﾞﾗﾑを書いてみましたが、printできねーと返されましたorz
よろしくお願いします。