my($rcs) = (q$Revision: 1.37 $ =~ /(\d+(?:\.\d+)+)/);