open(F,"){ my @array = split(//,$texto); if(scalar (@array) > 1){ while($array[$#array] =~ m/\n/){ pop(@array); } foreach(@array){ $newTexto .= $_; } $newTexto .= "\n"; } } close(F); print $newTexto; exit;