use strict; use warnings; print eval join('+', map {$_ ? $_ : 10} split('', <>));