#!/usr/bin/perl -w
use strict;
my $text="blah blah\nblah\nblah\nblah\nblah\nyadda yadda yadda\n";
my @lines=split /\n/, $text; #replace with split(/\n/,$text); at will
print "This: $_\n" for @lines;