This is perl 5, version 14, subversion 2 (v5.14.2) built for x86_64-linux-thread-multi

##</code><code>##

use warnings;
use strict;

while (<DATA>) {
    print if /\s([#]\S)(.*)/;
}

__DATA__
123/; #<
456/; #< a comment

##</code><code>##

123/; #<
456/; #< a comment