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
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