set text {    1    4    5   19
    1    5
    2    3    6   59
    2    6
    3    2    4   60
    3    4
    4    1    3   61
    4    3
   25   13   23   64   65
   13   18
   14   13   15   75
   14   15
   15   14   16   76
   15   14
   45   44  102  103  104}
puts "Original:"
puts $text
 
proc addevery {txt amount} {
	upvar text gtext
	set result [list]
	foreach line [split $txt \n] {
		set lineresult [list]
		foreach item [regexp -all -inline {\S+} $line] {
			lappend lineresult [expr {$item+$amount}]
		}
		lappend result $lineresult
	}
	set gtext [join $result \n]
	puts $gtext
	return
}
 
puts "\nAdding 129:"
addevery $text 129
 
puts "\nAdding again 129:"
addevery $text 129

c2V0IHRleHQgeyAgICAxICAgIDQgICAgNSAgIDE5CiAgICAxICAgIDUKICAgIDIgICAgMyAgICA2ICAgNTkKICAgIDIgICAgNgogICAgMyAgICAyICAgIDQgICA2MAogICAgMyAgICA0CiAgICA0ICAgIDEgICAgMyAgIDYxCiAgICA0ICAgIDMKICAgMjUgICAxMyAgIDIzICAgNjQgICA2NQogICAxMyAgIDE4CiAgIDE0ICAgMTMgICAxNSAgIDc1CiAgIDE0ICAgMTUKICAgMTUgICAxNCAgIDE2ICAgNzYKICAgMTUgICAxNAogICA0NSAgIDQ0ICAxMDIgIDEwMyAgMTA0fQpwdXRzICJPcmlnaW5hbDoiCnB1dHMgJHRleHQKIApwcm9jIGFkZGV2ZXJ5IHt0eHQgYW1vdW50fSB7Cgl1cHZhciB0ZXh0IGd0ZXh0CglzZXQgcmVzdWx0IFtsaXN0XQoJZm9yZWFjaCBsaW5lIFtzcGxpdCAkdHh0IFxuXSB7CgkJc2V0IGxpbmVyZXN1bHQgW2xpc3RdCgkJZm9yZWFjaCBpdGVtIFtyZWdleHAgLWFsbCAtaW5saW5lIHtcUyt9ICRsaW5lXSB7CgkJCWxhcHBlbmQgbGluZXJlc3VsdCBbZXhwciB7JGl0ZW0rJGFtb3VudH1dCgkJfQoJCWxhcHBlbmQgcmVzdWx0ICRsaW5lcmVzdWx0Cgl9CglzZXQgZ3RleHQgW2pvaW4gJHJlc3VsdCBcbl0KCXB1dHMgJGd0ZXh0CglyZXR1cm4KfQogCnB1dHMgIlxuQWRkaW5nIDEyOToiCmFkZGV2ZXJ5ICR0ZXh0IDEyOQogCnB1dHMgIlxuQWRkaW5nIGFnYWluIDEyOToiCmFkZGV2ZXJ5ICR0ZXh0IDEyOQ==