my @lines = split (/\n/);
for my $line(@lines)
{