grep -v "^'" file.asp > uncommented_file.asp

##</code><code>##

perl -ne 'print unless (/^\x27/)' file.asp > uncommented_file.asp

##</code><code>##

open( INPUT, "<", $ARGV[0] ) or die "$ARGV[0]: $!\n";
my @code_lines = grep !/^\x27/, <INPUT>;