map !! :!perl -c % map ## :s/^/#/ map !# :s/^#//