use strict;
use warnings;
use IO::Scalar; 

my $string = "one\ntwo\nthree\nfour\nfive\nsix";
my $scalar_fh = IO::Scalar->new( \$string );    # creating a scalar file handle.

my $count = 0;
$count++ while (<$scalar_fh> );
print $count;