Select Code to Download

#!/usr/bin/perl
use strict;
...

print "In " , $filename, " there are ",
    $lines_num, " lines that start with \"X\".\n";

my input file contains as below
X
...
XXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX