#!/usr/bin/perl 
use 5.010;  
use List::Util qw(sum); # This function sums our array in line 15 
use strict; 
use warnings; 
say "Awaiting input: ";  
my $text = <STDIN>;	 
chomp $text; 
my $textsaver = $text; 
$text=~ tr/abcdefghijklmnopqrstuvwxyz/12345678912345678912345678/; 
$text=~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/12345678912345678912345678/; 
my @wnums = split / /, $text;	 
foreach my $wnums(@wnums) { 
	my @lnums = split(//, $wnums); 
	my $wtotal = sum @lnums; 
	print "  $wtotal "; 
}