in reply to [perlre] grouping parenthesis capture whole string instead of proper subset... why?
if($setstr =~ /(.*)\|\|$/) { ... } [download]
works for me ;)