Select Code to Download

my $string = <<STRING;
 one.
 two \n \n .
 three.
STRING

my @lines = $string =~ m/^(.*?)$/msg;

# I need this test to pass
is(scalar(@lines), 3, 'found 3 lines only');