my $infile = "template.dsc";
open (INFILE, "$infile") || die "Broken: $!";
my $content;
read INFILE, $content, -s INFILE;
$content =~ s/^#.*//m;
close INFILE;
...