$format =~ s/(%m)/&message()/;