perl -i -pe 's/\cM*$//' foo bar baz