$sometext =~ s[\ba--\b][***]sgi;