#!perl
use strict;
use warnings;
my $data = 'some
random
data
to
test
this';

while (my ($line) = $data =~ m/^(.*)$/gm)
{
	print "<0>" . $line ."\n";
}

##</code><code>##

<0>some
.
.
<0>some
<0>some

##</code><code>##

#!perl
use strict;
use warnings;
my $data = 'some
random
data
to
test
this';
while ($data =~ m/^(.*)$/gm)
{
	my $line = $1;

	print "<1>" . $line ."\n";
}

##</code><code>##

<1>some
<1>random
<1>data
<1>to
<1>test
<1>this

##</code><code>##

while ($data =~ m/^(.*)$/gm)
{
	print "<2>" . $1."\n";
}