Select Code to Download

$rest = "\n\t" . $new;    #see ikegami's reply; was ". $aphor"

@new  = $rest =~ m/\G(.{$min,$max}[\x20.])?/gsx;