$line=~s/^(.)/#$1/;