初学Perl语言，有两个小问题请教下。
想做一个小程序，读取一个文件
１，如何得到这个文件有多少行包括空行，有没有预设的变量，还是需要自己写逻辑获得。
２，如何对每一行进行搜索指定的string，比如搜索＂mystudent＂，并且返回一共有多少行包含这个string
刚刚学perl，希望大虾们能说得详细点，最好有简单的sample 代码，我已经被perl的一堆堆符号搞得晕头转向了
[解决办法]
#!/bin/perl
use strict;
my $string="abc";
my $line;
while(<DATA>){
chomp;
if(/^\s*$/) {$line++;}
else{
my $count=0;
print "LINE$.: counts of \"$string\": ",s/$string//g,"\n";
}
}
print "total blank lines: ",$line,"\n";
__DATA__
abcabcabc
abc
abcabc
