Help for this page
buffer1 .= buffer2;
buffer =~ s/\s+$//;
for(ix=0;ix<=5;ix++) { : :
for(ix=0;ix<=$#buffer;ix++){ $buffer[$ix]='\0'; }