C:\>perl -We "$_='blah, blah2';$OPnot='-';$OPor=',';$OPand='\+'; 
/^(.*)\s*?($OPnot|$OPor|$OPand)\s*?(.*?)$/; print qq[1='$1', 2='$2', 3='$3']"
1='blah', 2=',', 3=' blah2'