char2idx.pl

#!/usr/bin/perl
 
use strict;
use warnings;
 
my @ar = ('a' .. 'z');
my $input = lc(shift @ARGV);
die if !$input;
my $sum = 0;
while ($input =~ /^(.)/) {
	my $last = length $input == 1 ? 1 : 0;
	my $s = $1;
	my $i = 0;
	for my $c (@ar) {
		if ($c eq $s) {
			if ($last) {
				$sum += $i;
			} else {
				$sum += int(@ar) * ($i + 1);
			}
		}
		$i++;
	}
	$input =~ s/^.//;
}
print $sum;
print "\n";