Secret Number Post Mortem

Note: Some of the submissions below could be missing some characters due to a PGAS bug. The bug affected the way some solutions were stored in the database. The bug has been fixed, but the effected solutions have not been repaired.

Accepted

47 Ton Hospel 
-l print while+s/./hex($`%10+$&)%15/eg^s//pop/e
47 Ton Hospel 
-l print while+s!.!hex($`%10+$&)%15!eg^s//pop/e
47 BoB (run by referees - outside competition) 
-l print,while+s/./hex($`%10+$&)%15/eg^s//pop/e
47 BoB (run by referees - outside competition) 
-l print,while+s,.,hex($`%10+$&)%15,eg^s,,pop,e
47 Ton Hospel 
-l print,while+s!.!hex($`%10+$&)%15!eg^s//pop/e
47 Ton Hospel 
-l print,while+s^.^hex($`%10+$&)%15^eg^s^^pop^e
47 Ton Hospel 
-l s//pop/e;print^s/./hex($`%10+$&)%15/eg&&do$0
47 Ton Hospel 
-l s//pop/e;print^s/./hex($`%10+$&)%15/eg&&do$0
48 Ton Hospel 
-l print while+s/./($`%10+$&)*1.1%10/eg^s//pop/e
48 Ton Hospel 
-l print while+s/./($`%10+$&)*1.1%10/eg^s//pop/e
48 BoB (run by referees - outside competition) 
-l print,while+s/./($`%10+$&)*1.1%10/eg^s//pop/e
49 Ton Hospel 
-l print while+s/./($`%10+$&)*1.11%10/eg^s//pop/e
49 BoB (run by referees - outside competition) 
-l $_=pop;s;.;print,s,,$&%9||9x$&&9if/\G../,eg;eg
49 Mtv Europe 
-l $_=pop;s;.;print,s,,$&%9||9x$&&9if/\G../,eg;eg
50 BoB (run by referees - outside competition) 
-l for(;s,.,($`%10+$&)*1.1%10,eg^s,,pop,e;print){}
50 Mtv Europe 
-l $_=pop;s;.;print,s,.,$&%9||9x$&&9if/\G../,eg;eg
50 Jukka Suomela 
-l $_=pop;s#.#print;s//$`&&($&+$`%10)*1.1%10/ge#ge
50 Jukka Suomela 
-l $_=pop;s#.#print;s//$`&&($&+$`%10)*1.1%10/ge#ge
51 BoB (run by referees - outside competition) 
-l $_=pop;print,s,,$&\%9||9x$&&9if/\G../,eg,while/./
51 Rick Klement 
-l $_=pop;s#.#print,s/.?/$`>9&&$`%100*1.11%10/ge#ge
51 Jukka Suomela 
-l $_=pop;s#.#print;s//$`&&($&+$`%10)*1.11%10/ge#ge
52 BoB (run by referees - outside competition) 
-l $_=pop;print,s,,$&%9||$&+0&&9if/G../,eg,while/./
52 Ton Hospel 
-l $_=pop;chop while+print,s!(?=(..)).!$+*1.11%10!eg
52 Mtv Europe 
-l $_=pop;print,s,.,$&%9||9x$&&9if/G../,eg,while/./
52 Rick Klement 
-l $_=pop;chop,while+print,s/(?=(..))./$+*1.11%10/ge
52 Jukka Suomela 
-l $_=pop;s#.#print;s/./$`&&($&+$`%10)*1.11%10/ge#ge
53 Chris Dolan 
-l $_=pop;chop while print^s/./(hex$&-48+ord$')%15/eg
53 Chris Dolan 
-l $_=pop;s!.!print;s,,(hex$&-48+ord$')%15,eg;chop!eg
53 Mtv Europe 
-l $_=pop;print,s,.,/G../and$&%9||9x$&&9,eg,while/./
53 Andrew Savige 
-l $_=pop;print,s;.;($_=$`%10+$&)+chop;eg,s,,,while//
53 Jukka Suomela 
-l for($_=pop;print,s/(?=(..))./$1*1.11\%10/ge;chop){}
53 Jukka Suomela 
-l $_=pop;s#.#print;s/(?=(..)?)./$1&&$1*1.11%10/ge#ge
54 Chris Dolan 
-l $_=pop;chop until print==s/./(hex$&-48+ord$')%15/eg
54 Rick Klement 
-l $_=pop;chop,while+print^s/./($&+($'&'?'))*1.1%10/ge
54 Andrew Savige 
-l $_=pop;s;;($_=$`%10+$&)+chop;eg,s,,,while/./&&print
54 Mtv Europe 
-l $_=pop;print,s#.#/G../and$&%9||$&+0&&9#eg,while/./
54 Stephen Turner 
print$_=pop,$/,/..(?{$".=$&%9||9*!!-$&})\b/&&`$ $0$"`
54 Adam Spiers 
-l print,while+s!!$+?$+%9||0+$+&&9:pop!ge,/(?=(..)?)./
54 Lyon Lemmens 
-l $_=pop;s!.!print,s//$`&&(0..9,1..9)[$&+$`%10]/ge!eg
55 Antti Lankila 
-l $_=pop;chop while+print,s,(?=(..)).,-$+?$+%9||9:0,ge
55 Antti Lankila 
-l $_=pop;chop,while+print,s,(?=(..)).,$+%9||!!-$+*9,ge
55 Ton Hospel 
-l $_=pop;chop while print,s!(?=(..)).!$1%9||$1+0&&9!eg
55 Rick Klement 
-l print^s/./($&+($'&'?'))*1.1%10/ge&&chop^redo,for+pop
55 Ton Hospel 
-l $_=pop;chop while+print,s!(?=(..)).!$+%9||$++0&&9!eg
55 Eugene van der Pijll 
-l $%=!print,/..(?{$%.=$&%9||0+$&&&9})^/while$_=$%||pop
55 Adam Spiers 
-l print,while s!(?=(..)?).?!~$+?$+\%9||0+$+&&9:pop!ge^2
55 Adam Spiers 
-l print,while+s!(?=(..)?).?!~$+?$+\%9||0+$+&&9:pop!ge^2
55 Jasper McCrea 
-l print while s//~$`?($n=$`%10+$&)-9*($n>9):pop/ge,/./
55 Jasper McCrea 
-l print,while+s//~$`?($n=$`%10+$&)-9*($n>9):pop/ge,/./
55 Jasper McCrea 
-l print,while+s//~$`?($$=$`%10+$&)-9*($$>9):pop/ge,/./
55 F. Xavier Noria 
-l $_=pop;chop while print,s/.\B/hex($&+($'&'?'))%15/eg
55 Jasper McCrea 
-l print,while+s#.?#$`>9?$`%100%9||$`%100&&9:pop#eg,/./
56 Rick Klement 
-l print,s/.(?=(.))/($&+$1)*1.1%10/ge&&chop^redo,for+pop
56 Jukka Suomela 
-l for($_=pop;print,s/(?=(..))./-$1?$1%9||9:0/ge;chop){}
56 Chris Dolan 
-l for($_=pop;/./;chop){print;s//(hex$&-48+ord$')%15/eg}
56 Mtv Europe 
-l $_=pop;print,s,.,/G../&&$&^0&&($&+8)%9+1,eg,while/./
56 Andrew Savige 
-l $_=pop;s//($%=$`%10+$&)+chop$%/eg,s///while/./&&print
56 Eugene van der Pijll 
-l $%=!print,/..(??{$%.=$&%9||0+$&&&9})^/while$_=$%||pop
56 John McNamara 
-l $_=pop;print|s/(?=(..))?./-$+?$+\%9||9:0if$+/egwhile//
56 Stephen Turner 
print$_=pop,$/,/..(?{$".=$&\%9||9*!!-$&})\b/&&`perl $0$"`
56 F. Xavier Noria 
-l $_=pop;chop while print,s/.\B/($&..9,1..9)[$'&'?']/eg
56 Qingning Huo 
-l $_=pop;s^^^while+print^s^.^(($_=$?)+=$?=$&)-9*/../^ge
57 Jukka Suomela 
-l for($_=pop;print,s|(?=(..)).|$&&&($1-1)%9+1|ge;chop){}
57 Rick Klement 
-l $_=pop;{print;s/.(?=(.))/($&+$1)*1.1%10/ge&&chop^redo}
57 Aaron Trickey 
-l $_=pop;s/..(?{$%=$&})$|./$%%9||$%&&9/gewhile/../&print
57 John McNamara 
-l $_=pop;print|s/(?=(..))?./-$+?$+\%9||9:0if$+/egwhile/./
57 Lyon Lemmens 
-l $_=pop;print,s/./$`&&(0..9,1..9)[$&+$`%10]/ge while/./
57 Lars Mathiesen 
-l $_=pop;print,s/(?=(..)?)./$1%9or$1&&$1+0&&9/gewhile/./
57 Lars Mathiesen 
-l $_=pop;print,s/(?=(..)?)./$1%9||$1&&0+$1&&9/gewhile/./
57 Rick Myers 
-l $_=pop;print,s!.!(($&+ord$')%29+1)%10!eg,chop while/./
58 Jukka Suomela 
-l for($_=pop;print,s|(?=(..)).|$&?($1-1)%9+1:0|ge;chop){}
58 Ton Hospel 
-l $_=pop;1while print,s!(?<=(.)).|..!$&?"$1$&"%9||9:$1!eg
58 Petri Mikkelä 
-l chop while$_.=pop,print,s/.(?=(.))/chop($_=$&+$1)+$_/eg
58 Aaron Trickey 
-l $_=pop;s/..(?{$%=$&})$|./$%%9||$%&&9/gewhile print,/../
58 Karsten Sperling 
-l $_=pop;print,s/./$`&&($`+$&)%10+($`%10+$&>9)/egwhile~$_
58 John McNamara 
-l $_=pop;print|s/.(?<=(..))?/-$+?$+\%9||9:0if$`/egwhile/./
58 Qingning Huo 
-l $_=pop;print,s!.!(($_=$?)+=$?=$&)-9*/../!ge,s!!!while//
58 Amir Karger 
-l $_=pop;chop while print,s/.(?=(.))/$&+$1-9*($&+$1>9)/ge
58 Michael Wrenn 
-l $_=pop;chop while print,s/.(?=(.))/$&+$1-9*($&+$1>9)/ge
58 Rene Luria 
-l $_=pop;chop while print,s/.(?=(.))/chop($_=$&+$1)+$_/ge
58 foxmask 
-l $_=pop;chop while print,s/.(?=(.))/chop($_=$&+$1)+$_/eg
58 foxmask 
-l $_=pop;chop while print,s/.(?=(.))/chop($_=$&+$+)+$_/ge
58 Sec 
-l $_=pop;chop while print,s/.(?=(.))/$&+$1-($&+$1>9)*9/ge
59 Keith Calvert Ivey 
-l $_=pop;chop while print,s}.(?=(.))}$%=$&+$+and$%%9||9}ge
59 Qingning Huo 
-l $_=pop;print,s|.|(($_=$?)+=$?=$&)-9*/../|ge,s/.//while//
59 Michael Wrenn 
-l $_=pop;chop while print&&s/.(?=(.))/$&+$1-9*($&+$1>9)/ge
59 John McNamara 
-l $_=pop;print|s/(?=(..))./0+$+?$+%9||9:0/eg|chop while/./
59 Jasper McCrea 
-l print while s//$'.0?($n=($'&v63)+$&)-9*($n>9):pop/ge,/./
60 Jukka Suomela 
-l for($_=pop;print,s|(?=(..)).|$&?($1-1)%9+1:$&|ge;chop){}
60 Rick Klement 
-l $_=pop;{print;s!.(?=(.))!($&+$1)*1.1%10!ge&&s/.$//&&redo}
60 Stephen Turner 
print$_=pop,$/;/..(?{$,.=$&%9||9*!!-$&})/&&exec perl,$0,$,
60 Andrew Savige 
-l $_=pop;s;;$==$-+$&,$-=$&,$=+chop$=;eg,s,,,while/./&&print
60 John McNamara 
-l $_=pop;print|s//$,=$&+$";$"=$&;$,-9*($,>9)if$`/egwhile/./
60 Qingning Huo 
-l $_=pop;print,s|.|(($_=$?)+=$?=$&)-9*/../|ge,s/.//while/./
60 Adam Spiers 
-l print while s!.?(?=(.?))!~$1?$1+$&-9*($1+$&>9):pop!ge,~$_
60 Karsten Sperling 
-l $_=pop;{print;s/./$`&&($==$`%10+$&)%10+($=>9)/eg>1&&redo}
60 Rick Myers 
-l $_=pop;print,s!.!(($&+ord$')%29+1)%10!eg,chop while''ne$_
60 Adam Spiers 
-l print,while+s!.?(?=(.?))!~$+?$++$&-9*($++$&>9):pop!ge,/./
60 Amir Karger 
-l $_=pop;chop while print,s/.(?=(.))/($c=$&+$1)-9*($c>9)/ge
60 dragonchild 
-l $_=pop;print,s/(?=(..))?./$1&&$1+0&&($1%9||9)/egwhile$_.0
60 Chris Ayotte 
-l $_=pop;{print;s/(?(?=(..).).|..)/$1+0?$1%9||9:0/eg&&redo}
60 foxmask 
-l $_=pop;chop while print,s/(.)(?=(.))/chop($_=$1+$2)+$_/ge
60 Rene Luria 
-l $_=pop;chop while print,s/(.)(?=(.))/chop($_=$1+$2)+$_/ge
61 Ton Hospel 
-l $_=pop;1while print,s!(?<=(.)).|..!$1+$&&&1+($1.$&-1)%9!eg
61 Jukka Suomela 
-l for($_=pop;print,s|.(?=(.))|$&?($&.$1-1)%9+1:$1|ge;chop){}
61 Petri Mikkelä 
-l $_=pop;print,s/.(?=(.))/chop($_=$&+$1)+$_/eg,chop while/./
61 Rafael Garcia-Suarez 
-l $_=pop;print,s/.(?=(.))/"$&$1"%9or$1&&9/eg,chop while"0$_"
61 Robert Mah 
-l $_=pop;print,s/.(?=(.))/$&+$1-($&+$1>9)*9/ge,chop while/./
61 Aaron Trickey 
-l $_=pop;{print;s/.(?=(.))/$&+$1-($&+$1>9&&9)/ge&&chop^redo}
61 John McNamara 
-l $_=pop;print|s/.(?=(.))/$&+$1-9*($&+$1>9)/eg|chop while/./
61 Amir Karger 
-l $_=pop;chop while print,s/.(?=(.))/($c=$&+$1)>9?$c-9:$c/ge
61 John McNamara 
-l $_=pop;print|s/./$,=$&+$";$"=$&;$,-9*($,>9)if$`/egwhile/./
61 Chris Ayotte 
-l $_=pop;{print;s/(?=(..))./$1+0?$1%9||9:0/eg;chop;$_&&redo}
61 F. Xavier Noria 
-l $_=pop;chop while print,s/.\B/(0..9,1..9)[$&+chr ord$']/eg
61 Szabó Péter 
-l $_=pop;print,s@.(?=(.))@$&+$1-9*($&+$1>9)@ge,s@.$@@while//
61 Peter Haworth 
-l $_=pop;chop while(print),s/.(?=(.))/($$=$1+$&)-($$>9)*9/ge
62 Ton Hospel 
-l $_=pop;1while print,s!(?<=(.)).|..!$1+$&&&1+("$1$&"-1)%9!eg
62 Keith Calvert Ivey 
-l $_=pop;chop while s}.}$`||print;$%=$&+($'&'?')and$%%9||9}ge
62 Adam Spiers 
-l $_=pop;do{print}while s/.(?=(.))/$1+$&-9*($1+$&>9)/ge^~chop
62 Rick Myers 
-l $_=pop;print|s!.!chr$&+ord$'!eg|y!:-B!1-9!|chop while''ne$_
62 Rick Myers 
-l $_=pop;print,s!.!(($&-1+ord$')%57+1)%48!eg,chop while''ne$_
62 Philip Kendall 
-l $_=pop;print,s!.!$_=$&+chr ord$',$_-9*/../!eg,chop while/./
62 Jasper McCrea 
-l print while s/.|^/$'.0?($n=($'&v63)+$&)-9*($n>9):pop/ge,/./
62 Thomas Bätzler 
-l for($_=pop;/./;chop){print;s/.(?=(.))/$1+$&-9*($1+$&>9)/eg}
62 Peter Haworth 
-l $_=pop;chop while(print),s/.(?=(.))/($$=$1+$&)>9?$$-9:$$/ge
63 Petri Mikkelä 
-l $_=pop;print,s/(.)(?=(.))/chop($a=$1+$2)+$a/eg,chop while/./
63 Antti Lankila 
-l $_=pop;{print;s/.(?=(.))/($:=$&+$+)>9?$:-9:$:/ge&&chop|redo}
63 Rick Klement 
-l print$_=pop;chop,print,while+s/.(?=(.))/$&+$1-9*($&+$1>9)/ge
63 Aaron Trickey 
-l $_=pop;print,s|.(?=(.))|$&+$1-($&+$1>9&&9)|ge,s|.$||while/./
63 Keith Calvert Ivey 
-l $_=pop;{print;s;.;$==$&+($'&'?')and$=%9||9;ge;chop;$_&&redo}
63 Qingning Huo 
-l $_=pop;{print;s|.|(($_=$?)+=$?=$&)-9*/../|ge;s|.||;$_&&redo}
63 Stephen Turner 
print$_=pop,$/;/..(?{$,.=$&%9||9*!!-$&})/;$,&&exec perl,$0,$,
63 John McNamara 
-l $_=pop;print|s/(.)(?=(.))/$1+$2-9*($1+$2>9)/eg|chop while/./
63 Andrew Savige 
-l $_=pop;s/./$%=$p+$&,$p=$&,$%+=chop$%/eg,s/.//while/./&&print
63 mike dillon 
-l $_=pop;{print;s/.(?=(.))/$&+$1-9*($&+$1>9)/ge;chop;$_&&redo}
63 F. Xavier Noria 
-l $_=pop;chop while print,s/.B/($s=$&+chr ord$')>9?$s-9:$s/eg
63 snowcrash 
{print$_||=pop,$/;s/.(?=(.))/(0..9,1..9)[$&+$1]/eg<<chop&&redo}
63 dragonchild 
do{print$_||=pop,$/;s/(?=(..))?./$1&&$1+0&&($1%9||9)/eg}while$_
63 Yanick Champoux 
-l $_=pop;print,s*.(?=(.))*$1?1+($&+$1-1)%9:$&*eg,chop
while/./
63 Arnaud ASSAD 
-l for($_=pop;print,s!(.)(?=(.))!($;=$1+$2)-($;>9)*9!ge;){chop}
63 Prakash Kailasa 
-l $_=pop;s/(?=(..))./$1+0&&1+($1+8)%9/ge,chop while print,/../
63 Yenya 
-l $_=shift;print,s/.(?=(.))/$1+$&-($1+$&>9)*9/ge,chop while/./
63 Honza Pazdziora 
-l $_=shift;print,s!.(?=(.))!chop($_=$&+$+)+$_!ge,chop while/./
63 Philippe Bricout 
-l $_=pop;print,s/./$.=$?+$&;$?=$&;$.-9*($.>9)/eg,s/.//while/./
63 Android 18 
-l for(print$_=pop;s#.(?=(.))#$&+$1-9*($&+$1>9)#ge;print){chop}
64 Ronald J Kimball 
-l print$_=pop;chop,print while s/.(?=(.))/$~=$&+$1and$~%9||9/ge
64 Ronald J Kimball 
-l print$_=pop;chop,print while s/.(?=(.))/$~=$&+$1and$~%9||9/ge
64 Antti Lankila 
-l $_=pop;{print;s/.(?=(.))/$:=$&+$+;$:>9?$:-9:$:/ge&&chop|redo}
64 Adam Spiers 
-l $_=pop;do{print}while s/.(?=(.))/($t=$&+$1)-9*($t>9)/ge^~chop
64 Aaron Trickey 
-l $_=pop;print,s|.(?=(.))|($.=$&+$1)-=$.>9&&9|ge,s|.$||while/./
64 Aaron Trickey 
-l $_=pop;print,s|.(?=(.))|($.=$&+$1)-=$.>9&&9|ge,s|.$||while/./
64 Aaron Trickey 
-l $_=pop;print,s|.(?=(.))|($.=$&+$1)-=$.>9&&9|ge,s|.$||while/./
64 Aaron Trickey 
-l $_=pop;print,s|.(?=(.))|($.=$&+$1)-=$.>9&&9|ge,s|.$||while/./
64 Aaron Trickey 
-l $_=pop;print,s|.(?=(.))|($.=$&+$1)-=$.>9&&9|ge,s|.$||while/./
64 Michael Wrenn 
-l $_=pop;while(/./){print;s/.(?=(.))/$&+$1-9*($&+$1>9)/ge;chop}
64 snowcrash 
{print$_||=pop,$/;chop,redo if s/.(?=(.))/(0..9,1..9)[$&+$1]/eg}
64 Karsten Sperling 
-l $_=pop;{print;s/.(?=(.))/($==$&+$1)%10+($=>9)/eg<<chop&&redo}
64 kjk 
-l $_=pop;s/\G(?=(..))./$1%9||$1*1&&9/eg,chop while''ne$_&&print
64 Honza Pazdziora 
-l $_=shift;print,s!.(?=(.))!($_=$&+$+)%10+/../!ge,chop while/./
64 Philippe Bricout 
-l $_=pop;print,s/./$.=$?+$&;$?=$&;$.--&&$.%9+1/eg,s/.//while/./
64 Thomas Bätzler 
-l $_=pop;{print;chop,redo if s/(.(?=(.)))/$1+$2-9*($1+$2>9)/eg}
64 Andrew Savige 
-l $_=pop;{print;s;.;($=.($`%10+$&)+1)%($=.1);ge;s;;;;m&&&&redo}
64 Marcelo E. Magallon 
-l $_=pop;0while+print,s/(?<=.).\B/$&$&/g,s/../0+$&?$&%9||9:0/ge
64 Sec 
-l $_=pop;1while(print,s/(.)(?=(.))(.$)?/$1+$2-($1+$2>9?9:0)/ge)
65 japhy 
-l $_=pop;s/.(?=(.))/$==$&+$1and--$=%9+1/ge,chop while print,$_>9
65 Ton Hospel 
-l $_=pop;1while print,s!(?<=(.)).|..!"$1$&"+0&&1+("$1$&"-1)%9!eg
65 Adam Spiers 
-l print$_=pop;chop,print while s/.(?=(.))/($t=$&+$1)-9*($t>9)/ge
65 Aaron Trickey 
-l $_=pop;print,s|.(?=(.))|(($.=$&+$1)>9)+$.%10|ge,s|.$||while/./
65 japhy 
-l $_=pop;s/.(?=(.))/$==$&+$1and--$=%9+1/ge,chop while+print,$_>9
65 japhy 
-l $_=pop;s/.(?=(.))/$==$&+$1and--$=%9+1/ge,chop while+print,$_>9
65 japhy 
-l $_=pop;s/.(?=(.))/$==$&+$1and--$=%9+1/ge,chop while print,$_>9
65 japhy 
-l $_=pop;s/.(?=(.))/$==$&+$1and--$=%9+1/ge,chop while+print,$_>9
65 japhy 
-l $_=pop;s/.(?=(.))/$==$&+$1and--$=%9+1/ge,chop while+print,$_>9
65 Rick Klement 
-l print$_=pop;chop,print,while+s/.(?=(.))/$&+$1-9*(($&+$1)>9)/ge
65 Yanick Champoux 
-l $_=pop;print,s#.(?=(.))#"$&$1&&1+($&$1-1)%9"#eeg,chop
while/./
65 Michael Ching 
-l $_=pop;print,s@.(?=(.))@($&+$1)=~/./,$'+$&@ge,chop,while+y///c
65 Qingning Huo 
-l $_=pop;{print;s/./(($.=$?)+=$?=$&)-9*($.>9)/ge;s/.//;$_&&redo}
65 mike dillon 
-l $_=pop;{print;s/.(?=(.))/($d=$&+$1)-9*($d>9)/ge;chop;$_&&redo}
65 Rick Myers 
-l print$_=pop;while(s/.(?=(.))/$++$&-($++$&>9)*9/eg){chop;print}
65 Rick Myers 
-l $_=pop;print&&s!.(?=(.))!$++$&-($++$&>9)*9!eg&chop while''ne$_
65 Lyon Lemmens 
-l $_=pop;print,s/(.)(?=(.))/(0..9,1..9)[$&+$2]/ge,chop while/d/
65 snowcrash 
{print$_||=pop,$/;chop,redo if s/.(?=(.))/(0,(1..9)x2)[$&+$1]/eg}
65 Karsten Sperling 
-l $_=pop;{print;s/.(?=(.))/$n=$&+$1;$n%10+($n>9)/eg<<chop&&redo}
65 kjk 
-l $_=pop;print(),s/G(?=(..))./$1%9||$1*1&&9/eg,chop while''ne$_
65 Philippe 'BooK' Bruhat 
-l print$_=pop;chop^print while s/.(?=(.))/($.=$&+$1)%9||$.&&9/eg
65 Philippe 'BooK' Bruhat 
-l print$_=pop;chop,print,while+s/.(?=(.))/($.=$&+$1)%9||$.&&9/eg
65 Thomas Bätzler 
-l for($_=pop;/./;){print;s/(.(?=(.)))/$1+$2-9*($1+$2>9)/eg;chop}
65 Mike G. 
-l $_=pop;do{print;s/(.)(?=(.))/$1+$2-9*($1+$2>9)/eg;chop}while$_
65 Andrew Savige 
-l $_=pop;{print;s;.;($=.($`%10+$&)+1)%($=.1);ge;s&&&&&m&&&&redo}
65 Marcelo E. Magallon 
-l $_=pop;0while+print,s/.\B/$&$&/g,s/^.//,s/../0+$&?$&%9||9:0/ge
66 Ronald J Kimball 
-l print$_=pop;chop,print while s/.(?=(.))/($~=$&+$1)>9?$~-9:$~/ge
66 Adam Spiers 
-l print$_=pop;chop,print while s/.(?=(.))/($t=$&+$1)%10+($t>9)/ge
66 Qingning Huo 
-l $_=pop;{print;s/./$y=$x+$&;$x=$&;$y-($y>9)*9/ge;s/.//;$_&&redo}
66 mike dillon 
-l $_=pop;{print;s/.(?=(.))/($d=$&+$1)>9?$d-9:$d/ge;chop;$_&&redo}
66 Rene Luria 
$_=shift;chop while(print"$_\n"),s/(.)(?=(.))/chop($_=$1+$2)+$_/ge
66 Yenya 
-l $_=shift;print,s/.(?=(.))/$&+$1&&($&.$1-1)%9+1/ge,chop while/./
66 Marcelo E. Magallon 
-l $_=pop;0while+print,s/.\B/$&$&/g,s/^.//g,s/../0+$&?$&%9||9:0/ge
66 Ritter Ádám 
$_=pop().$/;print,s@(.)(?=(.))|.@$1+$2?($1+$2-1)%9+1:$1@egwhile/./
67 Rick Klement 
-l $_=pop;print;chop,print while s/.(?=(.))/($b=$&+$1)>9?$b-9:$b/ge
67 japhy 
-l $_=pop;s/d(?=(d))/$==$&+$1and--$=%9+1/ge,chop while print,$_>9
67 Ton Hospel 
-l $_=pop;1while print&&s!(?<=(.)).|..!"$1$&"+0&&1+("$1$&"-1)%9!eg
67 Honza Pazdziora 
-l $_=shift;while(/./){print;s!.(?=(.))!($_=$&+$+)%10+/../!ge;chop}
67 Antti Lankila 
-l $_=pop;{print;s/.(?=(.))/$:=$&+$+-0;$:>9?$:-9:$:/ge&&chop|redo}
67 Rick Klement 
-l print$_=pop;chop,print while s/.(?=(.))/($==$&+$1)>9?$=-9:$=/ge
67 Qingning Huo 
-l $_=pop;{print;s/./$y=$x+$&;$x=$&;$y-=9*($y>9)/ge;s/.//;$_&&redo}
67 Chris Dolan 
-l map{$i=print@a;map{$_+=$a[$i++];$_-=9*/../}@a;pop@a}@a=pop=~/./g
67 snowcrash 
{print$_||=pop,$/;chop,redo if s/.(?=(.))/($a=$&+$1)<=9?$a:$a-9/eg}
67 Jasper McCrea 
-l print while s/.|^/'.'lt$'?($n=($'&v63).$&)%9||0+$n&&9:pop/ge,/./
67 Peter Makholm 
-l print$_=pop;s/(.)(?=(.))/$f.=$1+$2-($1+$2>9)*9/ge&&exec$^X,$0,$f
67 Prakash Kailasa 
-l print$_=pop;print while$_=join'',map$_+0&&1+($_-1)\%9,/(?=(..))/g
67 Dariusz Sznajder 
-l $_=pop;do{print,s[.(?=(.))][($&+$1)=~/./;$&+$']ge,s/.$//}while$_
67 Peter Makholm 
-l print$_=pop;s/(.)(?=(.))/$f.=$1+$2-($1+$2>9)*9/ge&&exec$^X,$0,$f
67 Phil Winans 
-l $_=pop;{print,s,.,$"=$&+$;;$;=$&;$`?$">9?$"-9:$":"",ge,$_&&redo}
67 Ritter Ádám 
$_=pop().'
';print,s@(.)(?=(.))|.@$1+$2?($1+$2-1)%9+1:$1@egwhile/./
68 Adam Spiers 
-l print$_=pop;chop,print while s/.(?=(.))/($t=$&+$1)%10+($t>=10)/ge
68 Honza Pazdziora 
-l $_=shift;while(/./){print;s!.(?=(.))!$_=$&+$1;$_%10+/../!ge;chop}
68 Ronald J Kimball 
-l print$_=pop;{s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge&&chop^print^redo}
68 Honza Pazdziora 
-l $_=shift;while(/./){print;s!.(?=(.))!$_=$&+$+;$_%10+/../!ge;chop}
68 japhy 
-l $_=pop;s/d(?=(d))/$x=$&+$1and--$x%9+1/ge,chop while print&&$_>9
68 japhy 
-l $_=pop;s/d(?=(d))/$==$&+$1and--$=%9+1/ge,chop while print&&$_>9
68 Yanick Champoux 
-l $_=pop;print,s#.(?=(.))#"$&$1"+0&&("$&$1"-1)%9+1#eg,chop while/./
68 Rafael Garcia-Suarez 
-l $_=pop;print,s/.(?=0|(.))/($x=$&.$1)--&&$x%9+1/eg,chop while"0$_"
68 Robert Mah 
-l $_=pop;while(/./){print;s/.(?=(.))/$a-=(($a=$&+$1)>9)*9/ge;chop;}
68 Isaac Lin 
-l map{print@b=@a;shift@a;map{$_-=9if($_+=shift@b)>9}@a}@a=pop=~/./g
68 F. Xavier Noria 
-l print$_=pop;chop,print while s,.B,($s=$&+chr ord$')>9?$s-9:$s,eg
68 Jasper McCrea 
-l print while s/.|^/'.'lt$'?($n=($'&v63).$&)%9||0+$n&&9:pop/ge&&/./
68 Peter Makholm 
-l print$_=pop;s/(.)(?=(.))/$f.=(0..9,1..9)[$1+$2]/ge&&exec$^X,$0,$f
68 Yenya 
-l print$_=shift;chop,print while s/.(?=(.))/$&+$1&&($&.$1-1)%9+1/ge
68 Ala Qumsieh 
-l $_=pop;{print;s/(?<=.).(?=.)/$&$&/g;s/../$&+0?$&%9||9:0/eg&&redo}
68 Mark Wooding 
-l $_=shift;do{print,s/.(?=(.))/($x=$&+$1)?$x%9||9:0/eg,chop}while$_
68 Mike G. 
-l $_=pop;do{print;s/(.)(?=(.))/$x=$1+$2,$x-9*($x>9)/eg;chop}while$_
68 Isaac Lin 
-l map{print@_=@.;shift@.;map{$_-=9if($_+=shift@_)>9}@.}@.=pop=~/./g
68 Benoît Chauvet 
-l $_=pop;s>.$|(\B.)>$&$1>g&s>..>-$&?1+($&-1)%9:0>ge while$_>9&print
69 Aaron Trickey 
-l $_=pop;print,s|.(?=(.))|$.=$&+$1,int$./10+$.%10|ge,s|.$||while/./
69 Yanick Champoux 
-l $_=pop;print,s#.(?=(.))#"$&$1">0?("$&$1"-1)%9+1:0#eg,chop while/./
69 dragonchild 
$_=pop;do{print$_,$/;s/(.)(?=(.))/($1+$2)%9||($1?9:0)/eg;chop}while$_
69 Chris Dolan 
-l map{$i=print@a;map{$_+=$a[$i++];$_-=9*/../}@a;pop@a}@a=pop=~/(.)/g
69 Peter Makholm 
-l $_=pop;while(print&&/../){s/(.)(?=(.))/(0..9,1..9)[$1+$2]/ge;chop}
69 Lyon Lemmens 
-l $_=pop;print,s/(.)(?=(.))/$a=$1+$2and($a%9||9)/ge,chop
while""ne$_
69 Eugene van der Pijll 
-l print$_=pop;s#.(?=(.))#$&+$1-9*($&+$1>9)#ge;chop;$_&&exec$^X,$0,$_
69 Eugene van der Pijll 
-l print$_=pop;s#.(?=(.))#$&+$1-9*($&+$1>9)#ge;chop;$_&&exec$^X,$0,$_
69 Ala Qumsieh 
{print$_=pop,$/;--pos,$ARGV[0].=0+$&?$&%9||9:0while/../g;@ARGV&&redo}
69 Jasper McCrea 
-l print@_ while@_=(pop=~/./g,map-9*(($n=$_[1]+shift@_)>9)+$n,1..$#_)
69 Jasper McCrea 
-l print while s/.|^/length$'?($n=($'&v63).$&)%9||0+$n&&9:pop/ge&&/./
69 Yenya 
-l print$_=shift;chop,print while s/.(?=(.))/$&+$1>9?$&+$1-9:$&+$1/ge
69 Rene Luria 
$_=shift;chop while((print"$_\n")&&s/(.)(?=(.))/chop($_=$1+$2)+$_/ge)
69 Philippe 'BooK' Bruhat 
-l print$_=pop;chop^print while s/.(?=(.))/($a=$&+$1)>9?1+$a%10:$a/eg
69 Marcelo E. Magallon 
-l $_=pop;0while+print,s/./$&$&/g,s/(^.|.$)//g,s/../0+$&?$&%9||9:0/ge
69 Philippe Bricout 
-l $_=pop;print,s/./$.=$?+$&;$?=$&;$.--&&$.%9+1/eg,/./,$_=$' while/./
69 Ed 
-l print$_=pop;while(s/(.)(?=(.))/$1+$2-9*($1+$2>9)/eg){s/.$//;print}
69 Peter Haworth 
-l $_=pop;print(),s/.(?=(.))/($$=$1+$&)>9?$$-9:$$/ge,chop while y///c
69 Benoît Chauvet 
-l $_=pop;s>^.|.$|(.)>$&$1>g&s>..>-$&?1+($&-1)%9:0>ge while$_>9&print
69 Joost Diepenmaat 
-l $_=pop;print,s/./($z=$&+chr ord$')>9?$z-9:$z/eg,chop while length;
70 Chris Dolan 
-l map{$i=print@a;map{$_+=$a[$i++];$_-=9if/../}@a;pop@a}@a=split//,pop
70 Lyon Lemmens 
-l $_=pop;print,s/(.)(?=(.))/($a=$1+$2)&&($a%9||9)/ge,chop
while""ne$_
70 Benoît Chauvet 
-l for($_=pop;9<$_&print;s>..>-$&?1+($&-1)%9:0>ge){s>^.|.$|(.)>$&$1>g}
70 Phil Winans 
-l $_=pop;{print;s/./$x=$&+$o;$o=$&;$-[0]?$x>9?$x-9:$x:""/ge;$_&&redo}
70 Piers Cawley 
-l $_=pop;1while$_>9&print&&s/.(?=(.))?/$+[1]?$&?($&+$1)%9||9:$1:''/eg
70 Mike G. 
-l $_=pop;do{print;s/(.)(?=(.))/$x=$1+$2,$x-9*($x>9)/eg;chop}while($_)
70 Ed 
-l $_=pop;a:print;if(s/(.)(?=(.))/$1+$2-9*($1+$2>9)/eg){s/.$//;goto a}
70 gimbo 
-l $_=pop;print,s/./$&$&/g,/./g,$_=join"",(0,(1..9)x11)[/../g]while/./
71 Yanick Champoux 
-l $_=pop;print,s#.(?=(.))#int(($&+$1)%10+($&+$1)/10)#eg,s/.$//while/./
71 Stephen Turner 
print$_=pop,$/;/(.)(.)(?{$,.=$1+$2-9*($1+$2>9)})/;$,&&exec perl,$0,$,
71 Rick Myers 
-l $_=pop;print;while(s/.(?=(.))/$&+$+-($&+$+>9)*9/eg){chop;print if$_}
71 Yenya 
-l print$_=shift;chop,print while s/(.)(?=(.))/$1+$2>9?$1+$2-9:$1+$2/ge
71 Prakash Kailasa 
-l $_=pop;while(print,$_>9){$_=join'',map$_+0?1+($_-1)%9:0,/(?=(..))/g}
71 Philippe 'BooK' Bruhat 
-l print$_=pop;while(s/.(?=(.))/($a=$&+$1)>9?1+$a%10:$a/eg){chop;print}
71 Alistair McGlinchy 
-l for(@x=pop=~/./g;@x;pop@x){$i=print@x;($_+=$x[$i++])>9?$_-=9:0for@x}
71 Peter Haworth 
-l $_=pop;print(),s/(.)(?=(.))/($$=$1+$2)>9?$$-9:$$/ge,chop while y///c
71 Sec 
-l split//,pop;map{print@q=@_;shift@_;map{$_+=shift@q;$_-=9if$_>9}@_}@_
71 Renaud D. 
-l $_=pop;print;s/(.)(?=(.))/$a.=($b=$1+$2)>9?$b-9:$b/eg&&exec$^X,$0,$a
72 japhy 
-l print$_=pop;s/d(?=(d))/$x=$&+$1and--$x%9+1/ge,chop,print while$_>9
72 Juerd 
-l split//,shift;{$==print@_;($_+=$_[$=++])&&=$_%9||9 for@_;$#_--&&redo}
72 Prakash Kailasa 
-l $_=pop;while(print,$_>9){$_=join'',map{$_+0?1+($_-1)%9:0}/(?=(..))/g}
72 Benoît Chauvet 
-l for($_=pop;9<$_&print;chop){s/.(?=.)/$a=5+$&+ord$';$a>53?$a%9+1:0/ge}
72 Thomas Bätzler 
-l $_=shift;while(/./){print;s/(.(?=(.)))/($s=$1+$2)>9?$s-=9:$s/eg;chop}
72 Sec 
-l split//,pop;map{print@q=@_;shift@_;map{$_+=shift@q;$_-=$_>9?9:0}@_}@_
72 Ritter Ádám 
$_=$ARGV[0]."\n";print,s@(.)(?=(.))|.@$1+$2?($1+$2-1)%9+1:$1@eg while/./
73 Lyon Lemmens 
-l $_=pop;do{print;s/(.)(?=(.))/"$1$2"+0&&("$1$2"%9||9)/ge;chop}while($_)
73 tadman 
{$x=!print$_=$x||pop,$/;1while s/(.)(.)/$x.=($1+$2)*1.1%10;$2/e;$x&&redo}
73 Yenya 
-l print$_=shift;s/.$//,print while s/(.)(?=(.))/$1+$2>9?$1+$2-9:$1+$2/ge
73 kjk 
-l $_=pop;{print;my$r;$r.=$+%9||$+*1&&9while/(?=(..))./g;$_=$r;redo if$_}
73 Rene Luria 
$_=shift;while((print"$_\n")&&s/(.)(?=(.))/$b=$1+$2;chop($b)+$b/ge){chop}
73 Mark Wooding 
-l $_=shift;print,s/.(?=(.))/($x=$&+$1)?$x%9||9:0/eg,chop while$_>9;print
73 Szabó Péter 
$_=pop;s@.(?=(.))@print$&;$&+$1-9*($&+$1>9)@ge,s@.$@!print$&,$/@e while//
74 Juerd 
-l split//,shift;do{$==print@_;@_=map{$_+=$_[$=++]and$_%9||9}@_}while$#_--
74 Benoît Chauvet 
$_=pop;while(9<$_&print$_.$/){s>^.|.$|(.)>$&$1>g;s>..>-$&?1+(8+$&)%9:0>ge}
74 pizza_milkshake 
print$_=pop,$/;s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge&&s/.$//&&exec"$^X $0 $_"
74 Jarkko Hietaniemi 
-l ($_,@a)=(pop,0..9,1..9);do{print;s/(.)(?=(.))/$a[$1+$2]/ge;chop}while$_
74 Peter Haworth 
-l @$=pop=~/./g;print(@$),@$=map{($$[1]+shift@$)=~/./;$&+$'}1..$#$ while@$
74 Sec 
-l split//,pop;map{print@q=@_;shift@_;map{$_+=shift@q;$_-=($_>9?9:0)}@_}@_
74 Renaud D. 
-l $_=pop;print;s/(.)(?=(.))/$a.=($b=$1+$2)>9?$b-9:$b/eg;$a&&exec$^X,$0,$a
75 Stephen Turner 
print$_=pop,$/;/(.)(.)(?{$,.=($1+$2>9)+($1+$2)%10})/;$,&&exec"perl $0 $,"
75 Ronald J Kimball 
-l print$_=pop;{s/.(?=(.))/$x-=9if($x=$&+$1)>9;$x/ge||last;chop;print;redo}
75 Ronald J Kimball 
-l print$_=pop;{s/.(?=(.))/$x-=9if($x=$&+$1)>9;$x/ge||last;chop;print;redo}
75 Smylers 
-l print$_=shift;while($_>9){s/.(?=(.))/($&+$1)%10+($&+$1>9)/ge;chop;print}
75 Rick Myers 
-l $_=pop;print;while(s/./$v=$&+chr ord$';$v>9?$v-9:$v/eg){chop;print if$_}
75 Chris Ayotte 
-l $_=pop;for$-(/./g){print;s/(?<!^).(?!$)/$&$&/g;s/dd/$&+0?$&%9||9:0/eg}
75 Mike G. 
-l $_=pop;while($_>9){print;s/(.)(?=(.))/$x=$1+$2,$x-9*($x>9)/eg;chop}print
75 Steve Rushe 
-l $_=pop;$_=join'',map{$_+0?$_%9||9:0}@d while(print)and@d=$_=~/(?=(..))/g
75 Steve Rushe 
-l $_=join'',map{$_+0?$_%9||9:0}@d while(print$_|=pop)and@d=$_=~/(?=(..))/g
76 Rick Myers 
-l $_=pop;print;s/./$v=$&+chr ord$';$v>9?$v-9:$v/eg&chop;exec"$^X $0 $_"if$_
76 Lyon Lemmens 
-l $_=pop;do{print;s/(.)(?=(.))/("$1$2"+0)?("$1$2"%9||9):0/ge;chop}while($_)
76 Peter Haworth 
-l @$=pop=~/./g;print(@$),@$=map{($$[$_]+$$[$_-1])=~/./;$&+$'}1..$#$ while@$
76 pizza_milkshake 
print$_=pop,$/;s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge;s/.$//;exec"$^X $0 $_"if$_
76 Steve Rushe 
-l print$i=pop;print$i=join'',map{$_+0?$_%9||9:0}@d while @d=$i=~/(?=(..))/g
77 Honza Pazdziora 
$_=shift;print"$_\n";while(length){$x='';while(/(.)(?=(.))/g){$y=$1+$2;$y=$y%10+1if$y>9;$x.=$y}print"$x\n"if$x ne'';$_=$x}
77 Stephen Turner 
sub _{print$_=pop,$/;$~='';/(.)(.)(?{$~.=($1+$2>9)+($1+$2)%10})/;$~&&_($~)}_ pop
77 Stephen Turner 
sub _{print$_=pop,$/;$~='';/(.)(.)(?{$~.=($1+$2>9)+($1+$2)%10})/;$~&&_($~)}_ pop
77 Honza Pazdziora 
-l $_=shift;while(length){print;s/(.)(?=(.)?)/$y=$1+$2;$y=$y%10+($y>9);$2eq''?'':$y/ge}
77 Honza Pazdziora 
-l $_=shift;while(/./){print;s/(.)(?=(.)?)/$2eq''?'':($1+$2)%10+($1+$2>9)/ge}
77 Rocco Caputo 
-l split//,pop;while(@_){print@_;my$x;($_+=$_[++$x],$_-=$_>9?9:0)for@_;pop@_}
77 pizza_milkshake 
print$_=pop,$/;/./,$a.=($%=$&+$')>9?$%-9:$%for/(?=(..))/g;exec"$^X $0 $a"if$a
77 Steve Rushe 
-l print$i=pop;print$i=join'',map{$_+0?$_%9||9:0}@d while(@d=$i=~/(?=(..))/g)
77 Terje K 
print$_=pop,$/;while(s/(.)(.)/$2/){$s.=$1+$2-($1+$2>9)*9}print`$^X $0 $s`if$s
78 pizza_milkshake 
print$_=pop,$/;/./,$a.=($x=$&+$')>9?$x-9:$x for/(?=(..))/g;exec"$^X $0 $a"if$a
78 kjk 
-l $_=pop;{print;my$r;pos=1+$-[0],$r.=$&%9||$&*1&&9while/../g;$_=$r;redo if$_}
78 Peter Haworth 
-l print@$=pop=~/./g;print@$=map{($$[$_]+$$[$_-1])=~/./;$&+$'}1..$#$ while@$>1
78 jynx 
#!/usr/bin/perl
sub _{print@_,$/;$#_&&_(map{($;=$_[$_]+$_[$_+1])-($;>9)*9}0..@_-2)}_ pop=~/./g
78 Terje K 
print$_=pop,"
";while(s/(.)(.)/$2/){$s.=$1+$2-($1+$2>9)*9}print`$^X $0 $s`if$s
78 Sec 
-l split//,pop;while(@q=@_){print@_;shift@_;map{$_+=shift@q;$_-=($_>9?9:0)}@_}
78 Renaud D. 
-l $_=pop;print;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b-9:$b}$a&&exec$^X,$0,$a
79 Qingning Huo 
-l $_=pop;{print;s/./$&$&/g;s/(^.|)(.)(.)/$2?($2+$3-1)%9+1:$3/ge;chop;$_&&redo}
79 pizza_milkshake 
print$_=pop,v10;/./,$a.=($x=$&+$')>9?$x-9:$x for/(?=(..))/g;exec"$^X $0 $a"if$a
79 Benoît Chauvet 
$_=pop;while(''ne$_){print$_.$/;s,^.|(.),$&$1,g;chop;s>..>$&<1?0:1+(8+$&)%9>ge}
79 Rene Luria 
$_=shift;while((print"$_\n")&&s/(.)(?=(.))/$b=$1+$2;$b\%10+int($b\/10)/ge){chop}
79 Tony Young 
map{$*=!print@:,$/;map{($_,$.)=($_+$:[++$*])=~/./g;$_+=$.}@:;pop@:}@:=pop=~/./g
80 Alistair McGlinchy 
-l @x=pop=~/./g;@x=map{($z=$x[$_-1]+$x[$_])%10+($z>9)}1..$#x
while(print@x)&1<@x
80 Patrick Gaskill 
-l $_=pop;{print;my$b;$b.=$1+$2>9?$1+$2-9:$1+$2while s/(.)(.)/$2/;($_=$b)&&redo}
80 Jean-Pierre Vidal 
-l @_=split//,pop;while(@_){print@_;$i=1;for(@_){$_+=$_[$i++];$_-=9if$_>9}pop@_}
80 Marcelo E. Magallon 
-l @c=split//,pop;do{print@c;($r,@c)=map{$r-=9if($r=$_+$p)>9;$p=$_;$r}@c}while@c
80 Terje K 
-l $_=pop;do{print;my$s;while(s/(.)(.)/$2/){$s.=$1+$2-($1+$2>9)*9}$_=$s}until!$_
81 Qingning Huo 
-l @_=pop=~/./g;while(@_){print@_;($z,@_)=map{$y-=9if($y=$_+$x)>9;$x=$_;$_=$y}@_}
81 Alistair McGlinchy 
-l @x=pop=~/./g;@x=map{($z=$x[$_-1]+$x[$_])%10+($z>9)}1..$#x
while(print@x)&&1<@x
81 Szabó Péter 
-l @"=split$,,pop;do{print@";$/=shift@"}while@"=map{$;=$/;($;+=$/=$_)-9*($;>9)}@"
81 Marcelo E. Magallon 
-l @c=split//,pop;do{print@c;($r,@c)=map{($r=$_+$p)>9?$r-=9:0;$p=$_;$r}@c}while@c
81 Tony Young 
map{print@a,"
";my$i;map{($_,$c)=split//,$_+$a[++$i];$_+=$c}@a;pop@a}@a=pop=~/./g
81 Colin Watson 
-l print$_=pop;map{$,.=$x+$_-9*($x+$_>9)if ord$x;$x=$_}/./g;exec perl,$0,$,if/../
81 Colin Watson 
-l print$_=pop;map{$,.=$x+$_-9*($x+$_>9)if ord$x;$x=$_}/./g;exec perl,$0,$,if/../
81 Tony Young 
map{print@:,"
";$*=0;map{($_,$.)=($_+$:[++$*])=~/./g;$_+=$.}@:;pop@:}@:=pop=~/./g
81 Tony Young 
map{print@:,"
";$*=0;map{($_,$.)=($_+$:[++$*])=~/./g;$_+=$.}@:;$#:--}@:=pop=~/./g
81 Renaud D. 
-l $_=pop;print;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b}$a&&exec$^X,$0,$a
82 pizza_milkshake 
print$_=pop,v10;/./,$a.=($x=$&+$')>9?$x-9:$x for(/(?=(..))/g);exec"perl $0 $a"if$a
82 Marcelo E. Magallon 
-l @c=split//,pop;do{print@c;($r,@c)=map{$r=(0..9,1..9)[$_+$p];$p=$_;$r}@c}while@c
82 Richard 
-l for(@c=split'',pop;@c;){print@c;@c=map{$_=$c[$_]+$c[$_+1];$_-=9*($_>9)}0..@c-2}
82 Terje K 
-l $_=shift;do{print;my$s;while(s/(.)(.)/$2/){$s.=$1+$2-($1+$2>9)*9}$_=$s}until!$_
82 Robin Berjon 
-l sub'z{print@_;$#_&&z(map{($_[$_-1]+$_[$_])=~/(.)(.)?/;$1+$2}1..$#_)}z pop=~/./g
82 Kyle McCrindle 
-l sub x{($&+$1)=~/./;$&+$'}for($_=pop;$_;s/.$//){print;s/.(?=(.))/x/eg}/./&&print
82 David Henderson 
$_="@ARGV";@_=(0..9,1..9);print"$_\n";chop,print"$_\n"while s/.(?=(.))/$_[$&+$+]/g
83 Rocco Caputo 
-l split//,pop;while(@_){print@ARGV=@_;shift@_;pop;for(@_){$_+=shift;$_-=9if$_>9;}}
83 Peter Makholm 
-l $_=pop;while(print){/../||last;s/(.)(?=(.))/(0..9,1..9)[$1+$2]/ge;s/0*(.*)./$1/}
83 Prakash Kailasa 
-l $_=pop;while(print,$_>9){$_=join'',map{s/(.)(.)/$1+$2/e for$_,$_;$_}/(?=(..))/g}
83 Steve Rushe 
-l print$_=pop;while($_>9){my$a;while(/(?=(..))/g){$a.=$1+0?($1%9||9):0}print$_=$a}
83 Isaac Lin 
-l for($_=pop;($a='')ne$_;$_=$a){print;/(.)(.)(?{$a.=($b=$1+$2)>9?$b-=9:$b})(?=A)/}
83 Isaac Lin 
-l print$_=pop;/(.)(.)(?{$a.=($b=$1+$2)>9?$b-=9:$b})(?=A)/;system$^X,$0,$a if''ne$a
83 clkao 
split//,pop;do{print@_,$/}while@_=map{$r=$_[$_]+$_[$_+1];$r%10+($r>=10)}(0..$#
_-1)
84 Qingning Huo 
-l @_=pop=~/./g;while(@_){print@_;map{$_[$_]-=9if($_[$_]+=$_[$_+1])>9}0..@_-1;pop@_}
84 Renaud D. 
-l $_=pop;print;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b}$a&&exec"perl $0 $a"
85 Patrick Gaskill 
-l sub a{print$_=pop;my$b;$b.=$1+$2>9?$1+$2-9:$1+$2while s/(.)(.)/$2/;$b&&a($b)}a pop
85 F. Xavier Noria 
-l $_=pop;$d=$1+$2,$n.=$d>9?$d-9:$d,--pos while/(.)(.)/g;print;$_>9&&exec"perl $0 $n"
85 Olivier Poitrey 
-l for($_=shift;$r=!print,/../;$_=$r){--pos,$r.=($t=$1+$2)%10+int$t/10while/(.)(.)/g}
85 Colin Watson 
-l print$_=pop;s/.//;$y=$&;$x.=$y+$_-9*($y+$_>9),$y=$_ for/./g;exec'perl',$0,$x if/./
85 clkao 
split//,pop;do{print@_,"\n"}while@_=map{$r=$_[$_]+$_[$_+1];$r%10+($r>=10)}(0..$#
_-1)
85 Boyd Nation 
-l $a=pop;do{print$_=$a;$a='';while(/(.)(.)/g){$a.=$1+$2-9*($1+$2>9);--pos}}while($a)
86 Boyd Nation 
-l $_=pop;do{print;split'';$_='';while($#_){$_.=($c=$_[1]+shift@_)-9*($c>9)}}while($_)
86 Robin Berjon 
-l sub'z{print@_;$#_&&z(map{($_[$_-1]+$_[$_])=~/(.)(.)?/;$1+$2}1..$#_)}z split'',shift
86 Mike G. 
-l $_=pop;while($_>9){print;s/(.)(?=(.))/$x=$1+$2;$n.=$x-9*($x>9)/eg;$_=$n;$n=''}print
86 Gallina 
split('',pop);while(@_){print@_,"\n";$x=shift@_;map{$S=$_+$x;$x=$_;$_=$S>9?$S-9:$S}@_}
86 Isaac Lin 
-l print$_=pop;/(.)(.)(?{$a.=($b=$1+$2)>9?$b-=9:$b})(?=A)/;system"perl",$0,$a if''ne$a
86 Pepik 
-l @S=split//,pop;while(@S){print@S;@S=map{$_+=$i;$i=$_-$i;$_>9and$_-=9;$_}@S;shift@S}
86 David Lowe 
-l for($,='',split//,pop;print(@_),$#_;){@_=map{($c=$_[$_]+$_[$_-1])>9?$c-9:$c}1..$#_}
86 Jacob Cohen 
-l $_=pop;do{$w=!print;s|(.)(?=.)|$z=$1+ord($')-48,$w.=int$z/10+$z%10|ge;$_=$w}while$_
87 Patrick Gaskill 
-l print$_=pop;while(/../){my$b;$b.=$1+$2>9?$1+$2-9:$1+$2while s/(.)(.)/$2/;print$_=$b}
87 Mike G. 
-l $_=pop;while($_>9){print;s/(.)(?=(.))/$x=$1+$2;$n.=$x>9?$x-9:$x/eg;$_=$n;$n=''}print
87 Thomas Bätzler 
print$_=$ARGV[0],$/;
s/(.(?=(.)))/($s=$1+$2)>9?$s-=9:$s/eg;
chop; print`$^X $0 $_`if/./
87 stefanG 
-l @f=split(//,pop);while(@f){print@f;$r=shift@f;map{$s=$_+$r;$r=$_;$_=$s>9?$s-9:$s}@f}
88 Jacob Cohen 
-l $_=pop;do{print;$w="";s|(.)(?=.)|$z=$1+ord($')-48,$w.=int$z/10+$z%10|ge;$_=$w}while$_
88 Andrew Savige 
-l sub lolli{$_=pop;/./&&(print,s,,($_=$`%10+$&)+chop,egg,s,,,,eat,lolli($_))} lolli pop
88 Alain RAVERAT 
$_=shift;{print"$_\n";s/(?!^).\B/$&$&/g;s/(.)(.)/$_=$1+$2;s#(.)(.)#$1+$2#e;$_/eg?redo:0}
89 Boyd Nation 
$_=pop;do{print"$_\n";split'';$_='';while($#_){$_.=($c=$_[1]+shift@_)-9*($c>9)}}while($_)
89 Olivier Poitrey 
-l for($_=shift;print,$_>9;$_=$r){for($r='';/(.)(.)/g;--pos){$r.=($t=$1+$2)\%10+int$t/10}}
89 Chas Owens 
f(pop);sub
f{my$s;print$_=pop,$/;$s.=($i=$1+$2)>9?$i-9:$i
while
s/(\d)(\d)/\2/;f($s)if$s}
89 Mark Kvale 
$k=shift;until(''eq$k){print$n="$k\n";$k='';$n=~s|\G.(?=(.))|$k.=($d=$&+$1)>9?$d-9:$d|ge}
90 Jean-Pierre Vidal 
-l $_=pop;while(length){print;split//;$_="";while(@_>1){$_.=($a=$_[1]+shift@_)>9?$a-9:$a}}
90 Ryan Zachry 
-l print$_=pop;while($_>9){while(s/.(?=(.))/$`/){($&+$1)=~/./;$x=$x.$&+$'}print$_=$x;$x=0}
90 Olivier Poitrey 
-l for($_=shift;print&&$_>9;$_=$r){$r='';($r.=($t=$1+$2)\%10+int$t/10,--pos)while/(.)(.)/g}
90 Pepik 
-l @S=split//,pop;while(@S){print @S;@S=map{$x=$_;$_+=$i;$_>9and$_-=9;$i=$x;$_}@S;shift@S}
90 Thomas Bätzler 
print$_=$ARGV[0],$/;while(/.(?=(.))/g){($t=$&+$1)<10or$t-=9;$a.=$t}
print`$^X $0 $a`if/../
90 Renaud D. 
$_=pop;do{$a="";print$_,$/;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b;}}while($_=$a);
90 Sec 
-l $_=pop;print;while($_>9){s/(?<=.).(?=.)/$&$&/g;s!(\d)(\d)!$1+$2-($1+$2>9?9:0)!eg;print}
90 Alain RAVERAT 
$_=shift;S:print"$_\n";s/(?!^).\B/$&$&/g;s/(.)(.)/$_=$1+$2;s#(.)(.)#$1+$2#e;$_/eg?goto S:0
91 Boyd Nation 
$_=pop;do{print"$_\n";split'';$_='';while($#_){$_.=($c=$_[1]+shift@_)<10?$c:$c-9}}while($_)
91 Richard 
for(@c=split'',$ARGV[0];@c>0;){print@c,'
';@c=map{$_=$c[$_]+$c[$_+1];$_-=9*($_>9)}0..@c-2;}
91 Jean-Pierre Vidal 
-l print@_=split//,pop;while(@_>1){$s.=($a=$_[1]+shift@_)>9?$a-9:$a}exec"$^X $0 $s"if""ne$s
91 Chris Ayotte 
-l print$_=pop;while($_>9){s/(?<!^).(?!$)/$&:$&/g;while(s/(d)(d)/$1+$2/eg){}s/://g;print}
91 QM 
$="\n";@_=split//,pop;print@_;print@_=map{$.=$_[$_]+$_[$_+1];$.>9?$.-9:$.}0..$#_-1while$#_
91 Olivier Poitrey 
-l for($_=shift;print&&$_>9;$_=$r){$r='';($r.=($t=$1+$2)\%10+int$t/10,--pos)while /(.)(.)/g}
91 Steve Rushe 
-l print$_=pop;while(/../){my$a;while(/(?=(.)(.))/g){$z=$1+$2;$a.=$z>9?$z-9:$z}prin
t$_=$a}
91 Jacob Cohen 
$_=pop;do{print"$_\n";$w="";s|(.)(?=.)|$z=$1+ord($')-48,$w.=int$z/10+$z%10|ge;$_=$w}while$_
91 David Kirchner 
-l $_=shift;s|.|$^=$~='';map{$:=$^+$_;$~.=$:>9?$:-9:$:if$^ne'';$^=$_}split//;print;$_=$~|eg
92 Jean-Pierre Vidal 
-l print@_=split//,pop;while(@_>1){$a=$_[1]+shift@_;$s.=$a>9?$a-9:$a}exec"$^X $0 $s"if""ne$s
93 F. Xavier Noria 
-l print$_=pop;while(/../){$n='';$d=$1+$2,$n.=$d>9?$d-9:$d,--pos while /(.)(.)/g;$_=$n;print}
93 Mark Wooding 
#! /usr/bin/perl
$\='
';$_=shift;print,s/.(?=(.))/($x=$&+$1)?$x%9||9:0/eg,chop while$_>9;print
93 David Pardo 
-l split'',pop;while(@_){print@_;for(0..@_-2){$i=$_[$_]+$_[$_+1];$i-=9if$i>9;$_[$_]=$i}pop@_}
94 Rhose 
$_=pop;{print$_,$/;/../||last;for$d(/./g){$_+=$d;/./;$n.=$'+$&if$c++;$_=$d}($_,$n,$c)=$n;redo}
94 Rhose 
$_=pop;{print$_,$/;/../||last;for$d(/./g){$_+=$d;/./;$n.=$'+$&if$c++;$_=$d}($_,$n,$c)=$n;redo}
94 Tony Young 
@a=pop=~/./g;map{print@a,"
";@a<1?exit:my$i;map{($_,$c)=split//,$_+$a[++$i];$_+=$c}@a;pop@a}@a
94 Lucca 
$_=pop;print"$_\n";while(/../){s/(\d)(?=(\d))/chr($1+$2).$2/eg;y/\0-\xff/0-91-9/d;print"$_\n"}
94 Mark Kvale 
$k=shift;until(''eq$k){print$n=$k."\n";$k='';$n=~s|\G.(?=(.))|$k.=$&.$1-9*int(($&.$1-1)/9)|ge}
94 Sec 
-l $_=pop;print;while($_>9){s/(?<=.)\d(?=.)/$&$&/g;s((\d)(\d)){$q=$1+$2;$q>9?$q-9:$q}eg;print}
95 Jean-Pierre Vidal 
-l @_=split//,pop;print@_;while(@_>1){$a=$_[1]+shift@_;$s.=$a>9?$a-9:$a}exec"$^X $0 $s"if""ne$s
95 Tony Young 
@a=pop=~/./g;map{print@a,"
";@a<1?exit:my$i;map{($_,$c)=split//,$_+$a[++$i];$_+=$c;}@a;pop@a}@a
95 Philippe 'BooK' Bruhat 
-l for(@_=split//,pop){print$a=shift@_,@_,my@a;@a=(@a,($a+=$_)>9?1+$a\%10:$a),$a=$_ for@_;@_=@a}
95 Colin Watson 
-l $_=pop;print;if(/../){s/.//;$y=$&;for(/./g){$x.=$y+($_>9-$y?$_-9:$_);$y=$_}exec'perl',$0,$x}
95 Mark Wooding 
#! /usr/bin/perl
$_=shift;do{print"$_
";s/.(?=(.))/$x=$&+$1,$x?$x%9||9:0/eg;chop}while$_|y///c>1
95 Renaud D. 
$_=$ARGV[0];do{$a="";print$_,$/;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b;}}while($_=$a);
96 Andrew Wilson 
$_=shift;{print"$_\n";$_<10?last:s/./$&$&/g,s/.(.+)./$1/,s/(.)(.)/$a=$1+$2;$a>9?$a-9:$a/ge,redo}
96 John Addis 
-l print@x=split//,pop;while($#x){@x=map{$y=$x[$_]+$x[$_-1];$y>9?$y>18?1:$y-9:$y}1..$#x;print@x}
96 Benoît Chauvet 
$_=pop;while(''ne$_){print$_.$/;s,^.|(.),$&$1,g;chop;s/../_($&)/ge;}sub _{$_[0]>0?1+(8+pop)%9:0}
96 Jacob Cohen 
$_=$ARGV[0];do{print"$_\n";$w="";s|(.)(?=.)|$z=$1+ord($')-48,$w.=int$z/10+$z%10|ge;$_=$w}while$_
97 kjk 
$_=shift;do{print"$_\n";split'';$_=join'',map{$_=$_[$_]+$_[$_+1];$_-9*int$_/10}0..$#_-1}while$#_;
97 Jean-Pierre Vidal 
-l @_=split//,pop;print@_;while(@_>1){$s=$_[1]+shift@_;$_.=$s>9?$s-9:$s}exec"$^X $0 $_"if $_ ne""
97 stefanG 
-l print@f=split(//,pop);while($#f){$r=shift@f;for(@f){$t=$r+$_;$r=$_;$_=$t-int($t/10)*9}print@f}
98 Ryan Zachry 
-l print$_=shift;while($_>9){while(s/.(?=(.))/$`/){$t=$&+$+;$t=~/./;$p=$p.$&+$';}print$_=$p;$p=0;}
98 Sébastien "Maddingue" Aperghis-Tramoni 
$_=shift;while(/.+/){$;='';print$_,$/;($==($1+$2))>9?$==$=%10+1:1,$;.=$=while+s/^(.)(.)/$2/;$_=$;}
99 F. Xavier Noria 
-l print$_=pop;while(/../){$n='';$n.=chr($1+$2+48),pos()-=1 while /(.)(.)/g;$_=$n;y/:-B/1-9/;print}
99 Angel-wNw 
$a=shift;while((print$_=$a,"\n")&&/../){$a="";while(s/(.)(.)/$2/e){$b=$1+$2;$a.=$b%10+int($b/10);}}
99 Jacob Cohen 
$_=$ARGV[0];do{print"$_\n";$w="";s|(.)(?=.)|$z=$1+ord($')-48,$w.=int$z/10+$z%10|ge,$_=$w,$1}while$_
100 Philippe 'BooK' Bruhat 
-l @_=split//,pop;while(@_){print$a=shift@_,@_,my@a;@a=(@a,($a+=$_)>9?1+$a\%10:$a),$a=$_ for@_;@_=@a}
101 Robert Berge 
-l @a=(0..9,1..9);$_=pop;while($_>9){my$r;print;while(s/(\d)(\d)(.*)/$2$3/){$r.=$a[$1+$2]}$_=$r}print
102 Philippe 'BooK' Bruhat 
-l @_=split//,pop;while(@_){print$a=shift@_,@_,my@a;for(@_){@a=(@a,($a+=$_)>9?1+$a\%10:$a),$a=$_}@_=@a}
102 Pepik 
-l @S=split//,pop;while(@S){print@S;for($i=0;$i<$#S;$i++){$S[$i]+=$S[$i+1];$S[$i]>9and$S[$i]-=9}pop@S}
103 Jacob Cohen 
$_=$ARGV[0];do{print"$_\n";$w="";while(/(.)(?=.)/g){$z=$1+ord($')-48;$w.=int$z/10+$z%10};$_=$w;}while$_
103 pizza_milkshake 
split//,$ARGV[0];$=v10;print@_;$b=shift@_;$x.=(($y=$_+$b)>9?$y-9:$y),$b=$_ for@_;exec"perl $0 $x"if$x;
103 Philippe 'BooK' Bruhat 
-l @_=split//,pop;while(@_){print$a=shift@_,@_,my@a;for$b(@_){push@a,($a+=$b)>9?1+$a\%10:$a;$a=$b}@_=@a}
103 James Harvey 
@a=split(//,$n=shift);while($#a){$d=(shift@a)+$a[0];$r.=$d>9?$d-9:$d;}$s=`$^X $0 $r`if$r;print"$n\n$s";
104 Philippe 'BooK' Bruhat 
-l @_=split//,pop;while(@_){print@_;$a=shift@_;@a=();for$b(@_){push@a,($a+=$b)>9?1+$a\%10:$a;$a=$b}@_=@a}
104 Thomas Bätzler 
$_=$ARGV[0];print$_,$/;while(/(.)(.)/g){pos()--;($t=$1+$2)<10or$t-=9;$a.=$t}
print`$^X $0 $a`if length>1
104 Alain RAVERAT 
sub a{print "$_\n";if(/../){s/(?!^).\B/$&$&/g;s/(.)(.)/$_=$1+$2;s#(.)(.)#$1+$2#e;$_/eg;a()}}$_=shift;a()
105 Ryan Zachry 
-l print$_=shift;while($_>9){@s=split//;$_='';for$i(1..$#s){$x=$s[$i]+$s[$i-1];$x=~/./;$_=$_.$&+$'}print}
105 Mark Wooding 
#! /usr/bin/perl
$\='
';$_=shift;do{print,s/.(?=(.))/$x=$&+$1,$x?$x%9||9:0/eg,chop,$_=eval}while$_|y///c>1
105 Ross Younger 
$_=pop;_:print$_.$/;$_>9||exit;split//;$l=shift@_;$_="";for$t(@_){$_.=($z=$t+$l)>9?$z-9:$z;$l=$t;}goto _;
106 Marcel Grünauer 
-l sub r{eval join'+',@_}sub p{split//,pop}@a=p pop;do{$i=0;print@a;@a=map{r p r @a[$i++,$i]}@a}while$a[0]
106 Pepik 
@S=split//,pop;while(@S){print@S,"\n";$i=0;while($i<$#S){$S[$i]+=$S[$i+1];$S[$i]>9and$S[$i]-=9;$i++}pop@S}
106 Casey Zacek 
print$_=pop()."\n";$_>9&&do{for$i(2..y/0-9//){pos=$-[2];/\G(.)(.)/;$o.=($a=$1+$2)>9?$a-9:$a}exec$^X,$0,$o}
106 Alberto Brealey 
$n=pop;do{print$n=$t||$n,$/;($p,$t)=();
for(split//,$n){($p+$_)=~/./;$t.=$&+$' if''ne$p;$p=$_}}while($n>9)
107 Jacob Cohen 
$_=$ARGV[0];do{print"$_\n";$w="";while(/(.)(?=.)/g){$z=$1+ord($')-48;$w.=int$z/1
0+$z%10};$_=$w;}while($_);
107 Rene Luria 
$a=shift;while((print$_=$a,"\n")&&/../){$a="";while(s/^(.)(.)/$2/e){$b=$1+$2;$b=~s/(.)(.)/$1+$2/e;$a.=$b;}}
107 Jeffrey Kern 
$_=shift;do{print"$_\n";$_=join('',map{do{($x,$z)=split//}while(($_=$x+$z)>9);$x+$z}/(?=(..))./g)}while($_)
108 Olivier Poitrey 
-l sub t{my($n,$p,$r)=@_;$n>9?do{$p||print$n;$r.=t($1+$2,--pos$n)while$n=~/(.)(.)/g;t($r)}:$n}print t(shift)
108 Pepik 
@S=split//,pop;while(@S){print@S,"\n";$i=0;while($i<$#S){$S[$i]+=$S[$i+1];if($S[$i]>9){$S[$i]-=9}$i++}pop@S}
109 Chris Ayotte 
-l @_=pop=~/./g;{print@_;$#_||exit;for(0..$#_){@_[$_]+=@_[$_+1];{@_[$_]=~s/(.)(.)/$1+$2/e&&redo}};pop@_;redo}
109 Rene Luria 
$a=shift;while((print$_=$a,"\n")&&/dd/){$a="";while(s/^(.)(.)/$2/e){$b=$1+$2;$b=~s/(.)(.)/$1+$2/e;$a.=$b;}}
109 Jason Purdy 
$n=pop;while(@a=split'',$n){print"$n\n";$n='';$i=0;for(@a){last if++$i==@a;$_+=$a[$i];$n.=/(.)(.)/?$1+$2:$_}}
109 David Kirchner 
for($_=shift;(print"$_\n")&&$_>9;my($l,$r)){map{$r.=eval(join'+',split//,$_+$l)if$l ne"";$l=$_}split//;$_=$r}
110 Alex Howarth 
-l $n=pop;while($n=~/./){print$n;while($n=~/(.)(?=(.))/g){$_=$1+$2;s/(.)(.)|(.)/$1+$2|$3/e;$a.=$_}$n=$a;$a=''}
111 Patrick Gaskill 
-l print$a=pop;while($a>9){my$b;while($a=~s/(.)(.)/$2/){$t=$1+$2;$t=~s/(.)(.)/$1+$2/e if$t>9;$b.=$t}print$a=$b}
111 Jacob Cohen 
$y=$ARGV[0];do{print"$y\n";@x=split//,$y;$y="";for$i(1..$#x){$z=$x[$i-1]+$x[$i];$y.=int$z/10+$z%10;}}while($y);
111 Benoît Chauvet 
$_=pop;while(''ne$_){print$_.$/;s,.(.)?,''ne$1&&_($&).(''ne$'&&_($1+($'&'?'))),ge;}sub _{$_[0]>0?1+(8+pop)%9:0}
111 Olivier Poitrey 
-l sub t{my($n,$p,$r)=@_;$n>9?do{$p||print$n;while($n=~/(.)(.)/g){$r.=t($1+$2,--pos$n)}t($r)}:$n}print t(shift)
111 Philippe 'BooK' Bruhat 
-l *_=*ARGV;@_=split//,pop;while(@_){print@_;$a=shift;@a=();for$b(@_){push@a,($a+=$b)>9?1+$a\%10:$a;$a=$b}@_=@a}
111 Jason Purdy 
$n=pop;while(@a=split'',$n){print"$n\n";$n='';$i=0;for(@a){last if++$i==@a;$_+=$a[$i];$n.=/(\d)(\d)/?$1+$2:$_}}
111 Joost Diepenmaat 
$_=pop;l:print"$_
";(@_=split//)>1||exit;$_='';
($z=shift(@_)+$_[0])>9&&($z%=9 or$z=9),$_.=$z while@_>1;goto l;
111 Alberto Brealey 
$n=pop;do{print$n=$t||$n,$/;($p,$t)=();
for(split//,$n){($p+$_)=~/(.)(.)?/;$t.=$1+$2if''ne$p;$p=$_}}while($n>9)
112 Benoît Chauvet 
$_=pop;while(''ne$_){print"$_\n";s,.(.)?,''ne$1&&_($&).(''ne$'&&_($1+($'&'?'))),ge;}sub _{$_[0]>0?1+(8+pop)%9:0}
113 Michael Vera 
-l $_=pop;print;while($#a){@a=split'';$_='';for($y=0;$y<$#a;$y++){$c=$a[$y]+$a[$y+1];$_.=$c>9?$c-9:$c}print if$_}
114 Rene Luria 
$_=shift;while((print"$_\n")&&/dd/){$a="";while(s/^(d)(d)/$2/e){$b=$1+$2;$b=~s/^(d)(d)/$1+$2/e;$a.=$b}$_=$a}
114 Alberto Brealey 
$n=pop;do{print$n=$t||$n,$/;($p,$t)=();for(split//,$n){
($s=$p+$_)=~/(.)(.)?/;$t.=$1+$2if''ne$p;$p=$_}}while($n>9)
115 Olivier Poitrey 
-l sub t{my($n,$p,$r)=@_;$n>9?do{$p||print$n;while($n=~/G(.)(.)/g){$r.=t($1+$2,1);--pos$n}t($r)}:$n}print t(shift)
115 David Pardo 
split"",pop;A:{print join'',@_,"\n";for$i(0..@_-2){$_=$_[$i]+$_[$i+1];$_-=9if$_>9;$_[$i]=$_}pop @_;}goto A while@_;
115 Jeffrey Kern 
print$_=shift,"\n";while($_>9){print$_=join('',map{do{($x,$z)=split//}while(($_=$x+$z)>9);$x+$z}/(?=(..))./g),"\n"}
117 Robert Berge 
@a=(0..9,1..9);$i=shift;while($i>9){my$r;&p;while($i=~s/(\d)(\d)(.*)/$2$3/){$r.=$a[$1+$2]}$i=$r}&p;sub p{print"$i\n"}
117 Eike Grote 
#!/usr/bin/perl -l

$_=pop;@a=split'';while(@a){print@a;for(2..@a){unshift(@b,pop(@a)+$a[-1])}@a=@b;for(@a){$_=$1+$2if/(.)(.)/};@b=()}
118 Arjen Laarhoven 
-l for(;;){print@n=pop=~/./g;@n==1&&exit;while(@n>1){$_=$n[0]+$n[1];s/(.)(.)/$1+$2/e;$n.=$_;shift@n}$ARGV[0]=$n;$n=""}
118 Arjen Laarhoven 
-l L:print@n=pop=~/./g;@n==1&&exit;while(@n>1){$_=$n[0]+$n[1];s/(.)(.)/$1+$2/e;$n.=$_;shift@n}$ARGV[0]=$n;$n="";goto L
118 Aaron Marasco 
$z=(pop).$/;while($z=~/dd+$/){@y=split//,$&;for$a(1..$#y){@c=split//,$y[$a]+$y[$a-1];$z.=$c[0]+$c[1]}$z.=$/}print$z
118 Mike G. 
-l $_=pop;while($_>9){$p=10;print;while(/(\d)/g){if($p<=9){$x=$p+$1;$p=$1;$x-=9if($x>9);$n.=$x}$p=$1}$_=$n;$n=''}print
120 Olivier Poitrey 
-l sub t{my($n,$p,$r)=@_;return$n if$n<10;$p||print$n;while($n=~/G(.)(.)/g){$r.=t($1+$2,1);--pos$n}t($r)}print t(shift)
120 David Pardo 
split "",pop;A:{print join'',@_,"\n";for $i(0..@_-2){$_[$i]=$_[$i]+$_[$i+1];$_[$i]-=9if$_[$i]>9;}pop @_;}goto A while@_;
120 Alberto Brealey 
$n=pop;do{print$t?$n=$t:$n,$/;($p,$t)=();for(split//,$n){
($s=$p+$_)=~/(.)(.)?/;$t.=$1+$2if defined$p;$p=$_}}while($n>9)
121 Agnes Lefranc 
$"='';@a=split'',shift;sub p{print"@a\n"}while(@a>1){p;@b=@a;shift@b;pop@a;map{$_+=shift@b}@a;map{s/(d)(d)/$1+$2/e}@a}p
122 stefanG 
$"="";@f=split(//,$ARGV[0]);$l="@f\n";while($#f){$r=shift(@f);for(@f){$t=$r+$_;$r=$_;$_=$t-int($t/10)*9}$l.="@f\n"}print$l
123 Jeffrey Kern 
$_=shift;print"$_\n";exit if($_<10);map{do{($x,$z)=split//}while(($_=$x+$z)>9);$j.=$x+$z}/(?=(..))./g;system("perl $0 $j");
124 Jason Purdy 
$n=pop;while(@a=split'',$n){print join('',@a),"\n";$n='';$i=0;for(@a){last if++$i==@a;$_+=$a[$i];$n.=(/(\d)(\d)/)?$1+$2:$_}}
124 Peter BARABAS 
-l print$_=pop;while(!/^.$/){while($_){/(.)(.)/;$z=$1;$z+=$2if$2;$z=$&+$' if$z=~/./;s/.//;$x.=$z}$x=~s/^0//;print$_=$x;$x=0}
124 Peter BARABAS 
-l print$_=pop;while(!/^.$/){while($_){/(.)(.)/;$;=$1;$;+=$2if$2;$;=$&+$' if$;=~/./;s/.//;$#.=$;}$#=~s/^0//;print$_=$#;$#=0}
125 Stéphane Reuille 
$_=shift;&a;while(!/^d$/){my$a;while(/(d)(?=(d))/g){$b=$1+$2;$b=~s/(d)(d?)/$1+$2/e;$a.=$b;}$_=$a;&a;}sub a{print"$_\n";}
126 Ryan Zachry 
-l print$n=shift;while($n>9){@s=split//,$n;$n='';for(0..$#s-1){$x=$s[$_]+$s[$_+1];if($x>9){$x=~/d/;$x=$&+$'}$n=$n.$x}print$n}
126 Olivier Poitrey 
-l $"='';sub t{my($n,$p,$r)=@_;return$n if$n<10;$p||print$n;while($n=~/G(.)(.)/g){$r.=t($1+$2,1);--pos$n}t($r)}print t(shift)
128 Jean-Pierre Vidal 
-l @_=split//,pop;print@_;do{$s.=&a while@_>1;print$s if$s;@_=split//,$s;$s=''}while@_;sub a{$r=$_[0]+$_[1];shift;$r<10?$r:$r-9}
128 Thomas Bätzler 
/binuse integer;$\=$/;$_=$ARGV[0];print;while(length>1){$a="";while(/(..)/g){pos()--;$a.=($t=$1%10+$1/10)>9?$t-9:$t}$_=$a;print}
130 clkao 
sub n{map{[@_[$_,$_+1]]}(0..$#_-1)}sub r{$#_?r(split//,$_[0]+$_[1]):$_[0]} split
//,pop;do{print@_,"\n"}while@_=map{r(@{$_})}n(@_)
133 Alberto Brealey 
$n=pop;do{print$t?$n=$t:$n,$/;($p,$t)=();for(0..length($n)-1){
($s=$p+($c=substr$n,$_,1))=~/(.)(.)?/;$t.=$1+$2if$_;$p=$c}}while($n>9)
134 Mark Kvale 
$n=$ARGV[0];print"$n\n";until($n<10){@n=split//,$n;$k="";for$i(0..@n-2){$d=$n[$i]+$n[$i+1];$d-=9if$d>9;print$d;$k.=$d}$n=$k;print"\n"}
134 Philippe 'BooK' Bruhat 
-l *_=*ARGV;@_=split//,pop;while(defined($a=pop)){print@_,$a;@a=();while(defined($b=pop)){unshift@a,($a+=$b)>9?1+$a\%10:$a;$a=$b}@_=@a}
134 Jason Purdy 
@a=split'',pop;while(@a){print join('',@a),"\n";$n='';$i=0;for(@a){last if++$i==@a;$_+=$a[$i];$n.=(/(\d)(\d)/)?$1+$2:$_}@a=split'',$n}
135 Thomas Bätzler 
/binuse integer; $\="\n"; $_=$ARGV[0];print;while(length>1){$a=""; while(/(..)/g){pos()--;$a.=($t=$1%10+$1/10)>9?$t-9:$t;}$_=$a;print;}
135 Thomas Eibner 
$x=pop;while(print($x.$/),$x>9){$r='';@x=split//,$x;for($i=0;$i<$#x;$i++){$_=$x[$i]+$x[$i+1];split//;$_=$_[0]+$_[1]if$_>9;$r.=$_}$x=$r}
135 Alberto Brealey 
$n=pop;do{print$t?$n=$t:$n,"\n";($p,$t)=();for(0..length($n)-1){
($s=$p+($c=substr$n,$_,1))=~/(.)(.)?/;$t.=$1+$2if$_;$p=$c}}while($n>9)
137 Peter BARABAS 
-l print$_=pop;exit if/^.$/;while(!/^.$/){while($_){/(.)(.)/;$z=$1;$z+=$2if$2;$z=$&+$' if$z=~/./;s/.//;$x.=$z}$x=~s/^0//;print$_=$x;$x=0}
138 Philippe 'BooK' Bruhat 
-l *_=*ARGV;@a=split//,pop;while(defined($a=pop@a)){print@a,$a;@_=();while(defined($b=pop@a)){unshift@_,($a+=$b)>9?1+$a\%10:$a;$a=$b}@a=@_}
139 Aaron Marasco 
$y=$z=pop;while($z=~/(d{2,})\n?$/){$z.="\n";@y=split//,$1;for$a(1..$#y){$b=$y[$a]+$y[$a-1];$i=0;@c=split//,$b;$z.=$c[0]+$c[1];}}print$z.$/
139 Jeffrey Kern 
$_=shift;print"$_\n";exit if($_<10);map{($x,$z)=split//;if($x+$z>9){$_=$x+$z;($x,$z)=split//;}$j.=$x+$z;}/(?=(..))./g;system("perl $0 $j");
140 Philippe 'BooK' Bruhat 
-l *_=*ARGV;@a=split//,pop;while(defined($a=pop@a)){print@a,$a;@_=();while(defined($b=pop@a)){unshift@_,($c=$a+$b)>9?1+$c\%10:$c;$a=$b}@a=@_}
140 jonasbn 
@n=split//,pop;while(@n>0){print@n,$/;my@s;for($i=1;$i<@n;$i++){$e=$n[$i-1]+$n[$i];$e=substr($e,0,1)+substr($e,1,1)if$e>9;push@s,$e;}@n=@s;}
140 Robert Rothenberg 
sub f{$y=pop;$y=~s/(.)(.)/$1+$2/e;$y>9?f($y):$y}sub h{$x=pop;my$a,$l;print"$x\n";map{$a.=f$l.$_;$l=$_}split//,$x;$a>9?h(substr$a,1):$a}h pop
141 Pepik 
-w @S=split//,$ARGV[0];print@S,"\n";while($#S>0){for($i=0;$i<$#S;$i++){$S[$i]+=$S[$i+1];if($S[$i]>9){$S[$i]-=9}print"$S[$i]"}pop@S;print"\n"}
141 Michael Vera 
$s=shift;print "$s\n";while($#a){@a=split '',$s;$s='';for($y=0;$y<$#a;$y++){$c=$a[$y]+$a[($y+1)];$c=$c-9 if $c>9;$s.=$c;}print "$s\n" if $s;}
144 Patrick Gaskill 
-l print$a=pop;while($a>9){@b=split'',$a;my@c;for(0..$#b-1){$t=$b[$_]+$b[$_+1];$t=~s/(.)(.)/$1+$2/e if$t>9;push@c,$t}$a='';map$a.=$_,@c;print$a}
144 Philippe 'BooK' Bruhat 
-l *_=*ARGV;print@a=split//,pop;while(defined($a=pop@a)){@_=();while(defined($b=pop@a)){unshift@_,($c=$a+$b)>9?1+$c\%10:$c;$a=$b}print@a=@_ if@_}
144 Jason Purdy 
@a=split'',pop;while(@a){print join('',@a),"\n";$n='';$i=0;for(@a){last if ++$i==@a;$p=$_+$a[$i];$p=$1+$2if$p=~/(\d)(\d)/;$n.=$p;}@a=split'',$n}
146 Michael Vera 
$s=shift;print "$s\n";while($#a){@a=split(//,$s);$s='';for($y=0;$y<$#a;$y++){$z=$y+1;$c=$a[$y]+$a[$z];$c=$c-9 if $c>9;$s.=$c;}print "$s\n" if $s;}
147 Jason Purdy 
@a=split'',pop;while(@a){print join('',@a),"\n";$n='';$i=0;for(@a){last if ++$i==@a;$p=$_+$a[$i];$p=$1+$2 if($p=~/(\d)(\d)/);$n.=$p;}@a=split'',$n}
149 W Geldenhuys 
-l $_=pop;split//;print join'',@_;while($#_){for($i=0;$i<$#_;$i++){$t=0;$s=$_[$i]+$_[$i+1];$t+=$_ for$s=~/./g;push @b,$t}@_=@b;@b=();print join'',@_}
149 David Kirchner 
$n=shift;print"$n\n";while($n>9){my($l,@b);foreach$d(split//,$n){if($l ne""){push(@b,eval(join('+',split//,$d+$l)))}$l=$d}$n=join('',@b);print"$n\n"}
149 Alberto Brealey 
print$n=pop,"\n";
while($n>9){for(0..length($n)-1){($s=$p+($c=substr$n,$_,1))=~/(.)(.)?/;
$t.=$1+$2unless$_==0;$p=$c}print$n=$t,"\n"if$t;($p,$t)=()};
152 Tony Young 
sub z{$s=$_[0]+pop;z($s=~/./g)if$s>9;return$s}@a=pop=~/./g;print@a,"
";while($#a>0&&$#b!=0){$#b=$c=-1;map{push@b,z$c,$_ if$c>=0;$c=$_}@a;print@a=@b,"
"}
153 Mike G. 
-l $_=pop;while($_>9){$p=10;print"$_";while(/(\d)/g){if($p>9){$p=$1;next}$x=$p+$1;$p=$1;if($x>9){$x=~/(\d)(\d)/;$x=$1+$2;}$n.=$x;}$_=$n;$n='';}print"$_";
154 Alberto Brealey 
print$n=pop,"\n";
while($n>9){for(0..length($n)-1){($s=$p+($c=substr($n,$_,1)))=~/(\d)(\d?)/;
$t.=$1+$2 unless$_==0;$p=$c}print$n=$t,"\n"if$t;($p,$t)=()};
155 E. Florac 
print  ($c=shift);while ($c>9){@m=split//,$c;for ($i=0;$i+1<@m;$i++){$m[$i]+=$m[$i+1];$m[$i]-=9 if ($m[$i]>9);}pop@m;$c=join '',@m;print "\n$c";}print"\n";
155 Mike G. 
-l $_=shift;while($_>9){$p=10;print"$_";while(/(\d)/g){if($p>9){$p=$1;next}$x=$p+$1;$p=$1;if($x>9){$x=~/(\d)(\d)/;$x=$1+$2;}$n.=$x;}$_=$n;$n='';}print"$_";
156 Agnes Lefranc 
$"='';@a=split'',shift;while(@a!=1){print "@a\n";my @b;while(@a-1){push @b,($a[1]+shift(@a))}@a=@b;map{/dd/&&($_=(split'')[0]+(split'')[1])}@a}print"@a\n"
156 Agnes Lefranc 
$"='';@a=split'',shift;while(@a!=1){print "@a\n";my @b;while(@a-1){push @b,($a[1]+shift(@a))}@a=@b;map{/dd/&&($_=(split'')[0]+(split'')[1])}@a}print"@a\n"
156 Mike G. 
$_=shift;while($_>9){$p=10;print"$_\n";while(/(d)/g){if($p>9){$p=$1;next}$x=$p+$1;$p=$1;if($x>9){$x=~/(d)(d)/;$x=$1+$2;}$n.=$x;}$_=$n;$n='';}print"$_\n";
158 Raphael Almeria 
$_=$ARGV[0];print"$_\n";while(length$_>1){$i=0;s/(.)/if($i){$s=$x+$1;$x=$1;if(length$s>1){$s=~s|(.)(.)|$1+$2|e;$s}else{$s}}else{$i=1;$x=$1;''}/ge;print"$_\n"}
159 Alberto Brealey 
print$n=pop,"\n";
do{for(0..length($n)-1){($s=$p+($c=substr($n,$_,1))) =~ /(\d)(\d?)/;
$t.=$1+$2 unless $_==0;$p=$c}print$n=$t,"\n"if$t;($p,$t)=()}while($n>9);
160 Henning Mřller-Nielsen 
@a=pop=~/(.)/g;while(+@a>1){my(@b,$c);print@a,"\n";for(@a){if(''ne$c){$d=$_+$c;my$e;push@b,($d>9)?(do{map{$e+=$_}$d=~/(.)/g;$e}):$d;}$c=$_;}@a=@b;}print@a,"\n";
162 Mike G. 
$_=shift;$p=10;while($_>9){print"$_\n";while(/(d)/g){if($p>9){$p=$1;next}$x=$p+$1;$p=$1;if($x>9){$x=~/(d)(d)/;$x=$1+$2;}$n.=$x;}$_=$n;$n='';$p=10;}print"$_\n";
163 Jason Purdy 
$_=pop;while(length>0){print"$_\n";$n=$_;$i=0;for(/./g){last if $i==length($n)-1;$v=$_+substr($n,++$i,1);if(length($v)==1){$s.=$v;}else{$s.=chop($v)+chop($v);}}$_=$s;undef$s}
163 Jason Purdy 
$_=pop;while(length>0){print"$_\n";$n=$_;$i=0;for(/./g){last if $i==length($n)-1;$v=$_+substr($n,++$i,1);$s.=(length($v==1))?$v:(chop($v)+chop($v));}$_=$s;undef$s}
170 Ross Younger 
sub p{print$_[0]."\n";}sub f{$_[0]=~/^(.)(.)/;$z=$1+$2;return($z>9?f($z):$z);}p$_=shift;while($_>9){$a="";$x=0;$i=(length)-1;while($x<$i){$a.=f(substr$_,$x++,2);}p$_=$a;}
173 Ryan Zachry 
-l $n=shift;while($n>9){print$n;@s=split//,$n;$n='';for(0..$#s-1){$t=$s[$_]+$s[$_+1];if($t>9){@u=split//,$t;$t='';for(0..$#u-1){$t=$t.($u[$_]+$u[$_+1]);}}$n=$n.$t;}}print$n;
184 Thomas Bätzler 
@s =split//,$ARGV[0];@a=([0..9,1..9]);for($i=1;$i<=9;$i++ ){@{$a[$i]}=
@{$a[0]}[$i..$i+9];}print@s,"\n";while( $#s ){my$h=shift@s;print+(@s=
map{($_,$h)=($a[$h]->[$_],$_);$_}@s),"\n";}
211 Peter Thomas 
-l $m=pop;@d=unpack("C*","$m");for($i=0;$i<=$#d;$i++){$d[$i] -= 48;}while($#d>0){print join('',@d);@n=();for($i=0;$i<$#d;$i++){$n[$i]=($d[$i]+$d[1+$i]);$n[$i]=$n[$i]>=10?$n[$i]-9:$n[$i];}@d=@n;}print join('',@d)
506 Marko Nippula 
-l package Numerology;
use base qw(Math::BigInt);
use overload
    '""'=>sub{sprintf"%d",shift},
    '+'=>sub{shift->sum_string(shift)->sum_string()};
sub sum_string {
    my($self)=@_;new Numerology(0+map{("M",)x$_}split //,"@_")
}
sub magic {
    my($self,$number)=@_;$number=~s!(?<=.).!@_=split //,reverse $`;
    $self->new($&)+$_[0]!eg;substr $number,1
}
package Mystery;
sub loop(&$) {
    while("0".$_[1]){print$_[1];push@_,&{$_[0]}(pop)}
}

package main;
Mystery::loop sub{Numerology->magic(@_)},pop
779 Andrew Savige 
''=~('(?{'.('`'|'%').('['^'-').('`'|'!').('`'|',').'"\$:='.('['^'+').('`'|'/').('['^'+').';'.('`'|'$').('`'|'/').'\{'.('['^'+').('['^')').('`'|')').('`'|'.').('['^'/').'\$:.\$/;\@\}=();'.('`'|'&').('`'|'/').('['^')').'\$%(\$[..-'.('^'^('`'|',')).'+'.('`'|',').('`'|'%').('`'|'.').('`'|"'").('['^'/').('`'|'(').'\$:)\{'.('['^'+').('['^'.').('['^'(').('`'|'(').'\@\},'.('['^'(').('['^'.').('`'|'"').('['^'(').('['^'/').('['^')').'\$:,\$%,'.('^'^('`'|',')).'\}\$*.=((\$^='.('`'|'#').('`'|'(').('`'|'/').('['^'+').'()+\$_)>'.(';'&'=').'?'.('`'|'#').('`'|'(').('`'|'/').('['^'+').'(\$^)+\$^:\$^)'.('`'|'&').('`'|'/').('['^')').'\@\};\$:=\$*;\$*=\"\"\}'.('['^',').('`'|'(').('`'|')').('`'|',').('`'|'%').'\$:'.('`'|'.').('`'|'%').'\"\"'.('!'^'+').'"})')
998 pokey 
-l 
my $number = $ARGV[0];
print $number;
while ( length $number > 1 ) {
    my @array = split( //, $number );
    $number = '';
    for ( my $i=0; $i < @array-1; $i++ ) {
        my $sum = $array[$i] + $array[$i+1];
        if ( $sum > 9 ) {
            my @temp = split //, $sum;
            $sum = $temp[0] + $temp[1];
        }
        $number .= $sum;
    }
    print $number;
}

"                                                                    ";
"                                                                    ";
"                                                                    ";
"                                                                    ";
"                                                                    ";
"                                                                    ";
"                                                                    ";
"                                                                    ";
"                                    ";

Rejected

11 japhy 
-TEST TEST
29 cheater 
#!0;for($_=pop;print("$_\n"),s/(.)/$1$1/g>1;s/(^.|.$)//g,s/(.)(.)/($1+$2)?($1+$2-1)\%9+1:0/ge){}#__END__#/perl
open 0;($_=<0>)=~s/#/
/g;eval
33 Ton Hospel 
-switches  codecodecodecod
 ecode
53 Antti Lankila 
-l $_=pop;chop while print,s;(?=(..)).;$+%9||$&&&9;ge
54 Jukka Suomela 
-l for($_=pop;print,s/(?=(..))[1-9]/$1%9||9/ge;chop){}
55 Jukka Suomela 
-l for($_=pop;print,s/(?=(..))./$&and$1%9||9/ge;chop){}
55 Antti Lankila 
-l $_=pop;{print;s;(?=(..)).;$+%9||$&&&9;ge&&chop|redo}
55 Jukka Suomela 
-l for($_=pop;print,s/(?=(..))./-$1&&9+$1%-9/ge;chop){}
57 John McNamara 
-l $_=pop;print|s/.(?<=(..))?/-$+?$+%9||9:0if$`/egwhile$_
58 Amir Karger 
-l print$_|=pop;s/\B.\B/$&$&/g;s/../$&%9||0+$&&&9/ge&&do$0
59 Aaron Trickey 
-l $_=pop;s/.(.(?{$%=$&})$|)/$%%9||$%&&9/gewhile print,/../
59 Karsten Sperling 
-l $_=pop;print,s/(?=(..)?)./$1&&-$1&&1+($1-1)%9/egwhile~$_
60 Peter Haworth 
-l $_=pop;chop while(print),s/.(?=(.))/($$=$1+$&)%9||$$&9/ge
61 Philip Kendall 
-l $_=pop;print,s!.!$_=$&-48+ord$',$_-9*/../ if$'!eg while/./
64 Michael Ching 
-l $_=pop;print,s@.(?=(.))@($&+$+)%9or$&?9:0@ge,chop,while+y///c
64 Mike Lambert 
$_=shift;$b=$&+$1,$a.=`$0 $b`while/.(?=(.))/g;print$a?`$0 $a`:$_
65 japhy 
-l print$_=pop;s/d(?=(d))/($&+$1-1)%9+1/ge,chop,print while$_>9
65 Qingning Huo 
-l $_=pop;{print;s/./(($y=$x)+=$x=$&)%9||$&&&9/ge;s/.//;$_&&redo}
65 John McNamara 
-l $_=pop;while($_){print;s/(.)(?=(.))/$1+$2-9*($1+$2>9)/eg;chop}
66 Mike Lambert 
$_=shift;$b=$1+$2,$a.=`$0 $b`while/(.)(?=(.))/g;print$a?`$0 $a`:$_
66 Jarkko Hietaniemi 
-l $_=pop;do{print;s/(.)(?=(.))/($1+$2-1)%9+1/ge;chop}while length
67 Benoît Chauvet 
-l s>.$|(\B.)>$&$1>g&s>..>-$&&&($&-1)%9+1>ge while($_+=pop)>9&print
67 Benoît Chauvet 
-l s>.$|(\B.)>$&$1>g&s>..>-$&&&($&-1)%9+1>ge while($_+=pop)>9&print
68 Mike Lambert 
$_=shift;$b=$1+$2,$a.=`$0 $b`while(/(.)(?=(.))/g);print$a?`$0 $a`:$_
70 pizza_milkshake 
print$_=pop,$/;s/.(?=(.))/$x=$&+$1>9?$x-9:$x/ge,s/.$//,exec"$^X $0 $_"
70 David Henderson 
$_="@ARGV";@_=(0..9,1..9);chop,print"$_\n"while s/.(?=(.))/$_[$&+$+]/g
72 Stephen Turner 
print$_=pop,$/;/(.)(.)(?{$,.=$1+$2-9*($1+$2>9)})/;$,&&exec"perl $0 $,"
72 pizza_milkshake 
print$_=pop,$/;s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge,s/.$//,exec"$^X $0 $_"
73 pizza_milkshake 
print$_=pop,$/;s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge&&s/.$//,exec"$^X $0 $_"
76 Qingning Huo 
-l $_=pop;do{print;s/(?<=.)./$&$&/g;s/(.)(.)/($1+$2-1)%9+1/gee;chop}while$_
76 Peter Haworth 
-l @$=pop=~/./g;@$=map{($$[$_]+$$[$_-1])=~/./;$&+$'}1..$#$ while@$>1;print@$
77 Qingning Huo 
-l $_=pop;do{print;s/./$&$&/g;s/^.//;s/(.)(.)/($1+$2-1)%9+1/gee;chop}while$_
77 Peter Makholm 
-l $_=pop;while(/../){s/(.)(?=(.))/(0..9,1..9)[$1+$2]/ge;s/0*(.*)./$1/;print}
77 pizza_milkshake 
print$_=pop,$/;/./,$a.=($%=$&+$')>9?$%-9:$%for/(?=(..))/g;exec"$^X $0 $a"if$a
77 Renaud D. 
-l $_=pop;print;while(s/(.)(.)/$2/){$a.=($b=$1+$2)>9?$b%10+1:$b}$a&&exec$0,$a
79 pizza_milkshake 
print$_=pop,v10;/./,$_=$&+$',$a.=$_%9||$_ for(/(?=(..))/g);exec"perl $0 $a"if$a
79 Isaac Lin 
-l print$_=pop;/(.)(.)(?{$a.=($b=$1+$2)>9?$b-=9:$b})(?=A)/;system$0,$a if''ne$a
81 Steve Rushe 
-l print$_=pop;while($_>9){my$a;while(/(?=(..))/g){$a.=$1?($1%9||9):0}print$_=$a}
90 Mike Lambert 
print if(($_=shift)>9)?
($b="$0 ".($1+$2),$a.=`$b`while(/(.)(?=(.))/g),$a>9?`$0 $a`:$a):$_
101 QM 
$="\n";$_=pop;print;{$..=($/=$1+$2)>9?$/-9:$/while(s/(d)(d)/$2/);($_,$.)=($.,'');print}while/dd/
101 James Harvey 
@a=split(//,$n=shift);while($#a){$d=(shift@a)+$a[0];$r.=$d>9?$d-9:$d;}$s=`./$0 $r`if$r;print"$n\n$s";
106 Rene Luria 
$a=shift;while((print$_=$a,"\n")&&/dd/){$a;while(s/^(.)(.)/$2/e){$b=$1+$2;$b=~s/(.)(.)/$1+$2/e;$a.=$b;}}
122 Agnes Lefranc 
$"='';sub p{print"@a\n"};@a=split'',shift;while(@a>1){p;@b=@a;shift@b;map{$_+=shift@b}@a;pop@a;map{s/(d)(d)/$1+$2/e}@a}p
126 Jean-Pierre Vidal 
-l @_=split//,pop;print@_;do{$s.=&a while@_>1;print$s if$s;@_=split//,$s;$s=''}while@_;sub a{$r=($_[0]+$_[1])%9;shift;$r?$r:9}
126 Agnes Lefranc 
$"='';sub p{print"@a\n"};@a=split'',shift;while(@a>1){p;@b=@a;shift@b;map{$_+=shift@b}@a;pop@a;map{/(d)(d)/&&($_=$1+$2)}@a}p
127 Jean-Pierre Vidal 
-l @_=split//,pop;print@_;do{$s.=&a while@_>1;print$s if$s;
@_=split//,$s;$s=''}while@_;sub a{$r=($_[0]+$_[1])%9;shift;$r?$r:9}
131 Alberto Brealey 
while($n>9){for(0..length($n)-1){($s=$p+($c=substr$n,$_,1))=~/(.)(.)?/;
$t.=$1+$2unless$_==0;$p=$c}print$n=$t,"\n"if$t;($p,$t)=()};
133 Hokie Palkoic 
print r(pop);sub r{$n=pop;print "$n\n";my$r;map{$r.=a(a($_))}$n=~/(?=(\d\d))/g;$r>10?r($r):$r}sub a{my$s;map{$s+=$_}split(//,pop);$s}
137 E. Florac 
$c=shift;while ($c>9){@m=split//,$c;for ($i=0;$i+1<@m;$i++){$m[$i]+=$m[$i+1];$m[$i]-=9 if ($m[$i]>9);}pop @m;$c=join '',@m;}print "$c\n";
145 W Geldenhuys 
-l $s=pop;print$s;while($s&&$s=~y///c){$p=0;for($s=~/./g){$t=0;$s=$_+$p;$p=$_;next if($p==$s);map$t+=$_,$s=~/./g;$b.=$t}$s=$b;$b='';print$s if$s}
193 kalym720 
$b=$ARGV[0];
print "$b";
sub f{
$a=shift;
$c=0;
for($i=0;$i<(length($a)-1);$i++){
$d=substr($a,$i,1)+substr($a,($i+1),1);
if($d>9){$d-=9;}
substr($c,$i)=$d;}
print "\n$c";}
f($b);
f($c);
f($c);
209 kalym720 
$b=$ARGV[0];
print "$b\n";
sub f{
$a=shift;
$c=0;
for($i=0;$i<(length($a)-1);$i++){
$d=substr($a,$i,1)+substr($a,($i+1),1);
if($d>9){$d-=9;}
substr($c,$i)=$d;}
print "$c\n";}
if($b ne 0){
f($b);
f($c);
f($c);}
287 kalym720 
$bgn = $ARGV[0];
print "$bgn\n";
sub clc {
my $arg=shift;
$crv=0;
for($i=0;$i<(length($arg)-1);$i++) {
$tmp = substr($arg,$i,1) + substr($arg,($i+1),1);
if ($tmp>9) { $tmp = substr($tmp,0,1) + substr($tmp,1,1); }
substr($crv,$i)=$tmp;
}
print "$crv\n";
}
clc($bgn);
clc($crv);
clc($crv);