$meaningfull = 0;
$meaningless = 0;

while (<>) {
  if (!m{^$|^(!|#|%|;|--|//)\s}) {
    $meaningfull++;
  } else {
    $meaningless++;
  }
}

print "$meaningfull $meaningless\n";