11 lines
137 B
Perl
Executable File
11 lines
137 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
|
|
|
|
while(<>) {
|
|
chomp;
|
|
/^\D*(\d)(?:\D*(\d))?\D*$/ or die "no head";
|
|
$sum += "$1" . ($2 || $1);
|
|
}
|
|
print "$sum\n";
|