#!perl
 
# ARGV + Ausgabe komplett + exit print: 74 Zeichen
$b=pop;{(grep/^1$|^(11+)\1+$/,1x++$a,1x--$b)&&redo}print$a+$b," = $a + $b"
 
# ARGV + Ausgabe komplett + die: 70/71 Zeichen
(grep/^(11+)\1+$/,1x$_,1x($b=$z-$_))||die"$z = $_ + $b"for 2..($z=pop)
 
# ARGV + Ausgabe kurz + exit print: 63 Zeichen
$b=pop;{(grep/^1$|^(11+)\1+$/,1x++$a,1x--$b)&&redo}print"$a+$b"
 
# ARGV + Ausgabe kurz + die: 60/61 Zeichen
$b=pop;(grep/^(11+)\1+$/,1x$_,1x--$b)||die"$_+$b"for 2..--$b
 
#!perl -n
# - oder -
#!perl -p     # bei falscher Eingabe "Fehlermeldung" "0" ;)
 
# STDIN + Ausgabe komplett + exit print: 75 Zeichen
(grep/^1$|^(11+)\1+$/,1x++$a,1x$_)||exit print$a+$_," = $a + $_"while--$_
 
# STDIN + Ausgabe komplett + die: 68/69 Zeichen
(grep/^1$|^(11+)\1+$/,1x++$a,1x$_)||die$a+$_," = $a + $_"while--$_
 
# STDIN + Ausgabe kurz + exit print: 64 Zeichen
(grep/^1$|^(11+)\1+$/,1x++$a,1x$_)||exit print"$a+$_"while--$_
 
# STDIN + Ausgabe kurz + die: 57/58 Zeichen
(grep/^1$|^(11+)\1+$/,1x++$a,1x$_)||die"$a+$_"while--$_
 
#!perl -p
 
# STDIN + Ausgabe komplett + print: 66 Zeichen
(grep/^1$|^(11+)\1+$/,1x++$a,1x--$_)&&redo;print$a+$_," = $a + "
 
# STDIN + Ausgabe kurz + print: 55 Zeichen
(grep/^1$|^(11+)\1+$/,1x++$a,1x--$_)&&redo;print"$a+"