map ^[OQ :w!^M:! perl %^M