#!/usr/bin/perl

my $x = "Line1\nLine2Resolved 200 problems out of 5000 picked\nLine4\nLine5";
$x =~ s/.*?Resolved (\d+) problems out of (\d+) picked.*/
       ($2 - ($1\/$2)) > .5 ? 1 : 0 /es;

print "$x\n";