$a = "size=1111"; 
$a =~ s/(\d+)/($1 > 5) ? 5 : $1/e; 
print $a, "\n"