perl -e '$_="s//s!!A!/e";eval;print'