Paragraphs to Selectable List Script (optimized)

Question

As this script may be of interest to some, I'm posting this version.
This appears to be a troublefree script for converting paragraphs of text to a selectable list while:
1) Getting rid of leading AND trailing white space
2) Preserving punctuation
3) It eliminates a problem where getting rid of trailing white space did not work if there was no leading white space to begin with
4) It is based on submissions by Yvan Koenig and Hiroto with modifications by osimp
It does NOT eliminate blank paragraphs
set myT to "PARAGRAPH 1, and ?!% for punctuation
PARAGRAPH 2
PARAGRAPH 3"
(*Add leading and trailing white space to each paragraph if
it doesn't show up in this post*)
set L to every paragraph of myT
repeat with i from 1 to (count L)
set para to item i of L
repeat while (para starts with space) or (para starts with tab)
set para to (rest of every character of para) as text
end repeat
--IMPORTANT: 1) THE TRY/END TRY BLOCK IS NECESSARY IN THE EVENT OF A BLANK LINE *if* 2) THE 'REPEAT WHILE LAST CHARACTER OF PARA IS " "' BLOCK (below) IS USED (to delete trailing white space). ALSO: positioning of the "end repeats" is crucial; if incorrect, the trailing white space block won't work if no paragraph has leading white space (etc.)! The arrangement shown here appears to be correct.
try
repeat while last character of para is " "
set para to characters 1 thru {(count characters of para) - (1)} of para as text
end repeat
end try
set item i of L to para
end repeat
set _ to choose from list L --with empty selection allowed
if _ is false then error number -128
set mySelection to _ as string
return mySelection
2.7G5 AND OTHERS   Mac OS X (10.4.5)  

Answer 1

It does NOT eliminate blank paragraphs
set item i of L to para
It does NOT eliminate blank paragraphs, because you maintaining the structure of L.
If you want to get rid of blank line, you need to reconstruct L by changing the script a bit:
set myT to " PARAGRAPH 1, and ?!% for punctuation
PARAGRAPH 2
PARAGRAPH 3 "
(*Add leading and trailing white space to each paragraph if
it doesn't show up in this post*)
set L to {}
repeat with para in every paragraph of myT
repeat while (para starts with space) or (para starts with tab)
set para to (rest of every character of para) as text
end repeat
--IMPORTANT: 1) THE TRY/END TRY BLOCK IS NECESSARY IN THE EVENT OF A BLANK LINE *if* 2) THE 'REPEAT WHILE LAST CHARACTER OF PARA IS " "' BLOCK (below) IS USED (to delete trailing white space). ALSO: positioning of the "end repeats" is crucial; if incorrect, the trailing white space block won't work if no paragraph has leading white space (etc.)! The arrangement shown here appears to be correct.
try
repeat while last character of para is " "
set para to characters 1 thru {(count characters of para) - (1)} of para as text
end repeat
end try
if para as string is not "" then copy para to end of L
end repeat
set _ to choose from list L --with empty selection allowed
if _ is false then error number -128
set mySelection to _ as string
return mySelection