my $tab=20;
print substr($sp2 . ' ' x $tab,0,$tab),$lmer,"\n";