print "$#lines\n";

##</code><code>##

@line=split(/$variable/,$_);

##</code><code>##

use warnings;