$begin=/BEGIN MAC REGISTER DUMP/$end=/END MAC REGISTER DUMP/def name
base =ARGF.path
i =0loop do
name ="#{base}.#{i}"return name unless File.exists? name
i +=1endend
f =nilwhile gets
(f.close; f =nil)if ~$end
f <<$_if f
f = File.open name,'w'if ~$beginend