# <>で囲まれた部分を削除する $str = qq(<font color="red"\n size="+1"\n>\n注目\n</font>); #$str =~ s/<.*?>//g; # 1つめの<font>が削除されない $str =~ s/<.*?>//sg; # 削除される