$para =~ s/^\s*#.*//mg;
$len = length($para);