if ($string !~ /^#/) {
  print "Houston, we have an uncommented line \n";
}