$PAT = '$X =~ s{^(.*?)Resolved (\d+) problems out of (\d+) picked(.*?)$}{ (($3-$2)/$3>.5) ? 1 : 0 }se';