#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(:5.36);
use autodie;

open my $fh, '<', 'input.txt';

my $total = 0;

my %map = (
	one => 1,
	two => 2,
	three => 3,
	four => 4,
	five => 5,
	six => 6,
	seven => 7,
	eight => 8,
	nine => 9,
);
for my $i (1..9) {
	$map{$i} = $i;
}

for my $line (<$fh>) {
	chomp $line;
	$line =~ /^[a-z]*(\d)/;
	my $x = $1;
	$line =~ /(\d)[a-z]*$/;
	my $y = $1;
	my $z = $x . $y;
	$total += $z;
}
say $total;