my $var = qq~dies
ist
ein test~;

my $count = () = $var =~ /\r?\n/g;
print $count,"\n";