print STDOUT do {(my $tmp = <<EOT) =~ s/^#//mg; $tmp };
#this is
#a test
EOT