@arr = split /\n/, $line;
map {s/^\n+//;} @arr;
$"="\n";
print "@arr"