V=`sed -n 's/[^0-9]*\([0-9]\.[0-9][^. ]*\).*/\1/p' $$SRC` ; \
T=/tmp/xs.$$$$ ; \
for S in XScreenSaver.plist SaverTester.plist ; do \
V=`sed -n 's/[^0-9]*\([0-9]\.[0-9][^. ]*\).*/\1/p' $$SRC` ; \
T=/tmp/xs.$$$$ ; \
for S in XScreenSaver.plist SaverTester.plist ; do \
KEYS="CFBundleVersion|CFBundleShortVersionString" ; \
perl -0777 -pne \
"s@(<key>($$KEYS)</key>\s*<string>)[^<>]+(</string>)@\$${1}$$V\$${3}@g" \
KEYS="CFBundleVersion|CFBundleShortVersionString" ; \
perl -0777 -pne \
"s@(<key>($$KEYS)</key>\s*<string>)[^<>]+(</string>)@\$${1}$$V\$${3}@g" \