Select Code to Download

%x comment
...
<comment>\n             ++line_num;
<comment>"*"+"/"        BEGIN(INITIAL);

<comment>[^*\n]*

"/*"         BEGIN(comment);

if ($bob =~ /^\/\*/) {
  $comment = 1;
}

#!/usr/bin/perl
use strict;
...
}
}
print "line num is $line_num\n";