Have you ever heard of the unix command line tool called "grep"? The perl "grep" function is sort of based on that. The tool is used to filter a text stream (a text file, or text data being fed through a "piped" command line) by selecting (or, with the "-v" option, rejecting) lines that match a given regex pattern:

grep -v "^'" file.asp > uncommented_file.asp
[download]

To do the same thing with perl, it's still the case that all you need is a command line:

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

(In that case, an ms-windows "dos" shell would rather have double quotes instead of single quotes around the "script". Note that I use "\x27" instead of an actual apostrophe character, to avoid quoting problems in the shell.)

If you really need this to be done as part of a larger script that is doing other things with the non-comment lines, you can read all the lines into an array like this:

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