I don't feel like I understand the example very well. Have you considered changing the regex to match multiple punctuation marks at the end of line?
$abstract =~ m/([a-zA-Z0-9\.]+)[.!?]*\s*$/x;
^
|
zero or more ---------+
//Ed
