sub Filter {
  my ($source, $objtype, $objname, $libname, $pbver) = @_;
  if ($objtype == DATAWINDOW) {
    $source =~ s/
      (button\(.+?background.color=")553648127(")
      /${ 1 } 67108864 ${ 2 }/isx;
    return $source;
  }
  return undef; # no changes
}

pbc -v  9  -it app.pbt -r -log filter.log -f filter.pm

sub Filter {
  my ($source, $objtype, $objname, $libname, $pbver) = @_;
  if ($objtype == DATAWINDOW) {
    my $new_background_color = '12632256';
    my $new_background_mode = '0';
    $source =~ s/(button\(.+?background.color=")\d+(")
    	/$ 1 $new_background_color$ 2 /isxg;
    $source =~ s/(button\(.+?background.mode=")\d+(")
    	/$ 1 $new_background_mode$ 2 /isxg;
    return $source;
  }
  return undef; # no changes
}