:perldo $_ =~ s/#1/# 1/g;