s/(bad)/$1 & (' ' x length $1) | 'SAD'/ie;