>>350
> $a =~ s/<br>//;
つ s/<br>//g;

> /[^a-zA-Z0-9\.\, _<>\?\/\&\;\!\:\=\'\-\~]/
つ m|[^\w.,_/<>?&;!:='~-]|