Beautiful strings problem solution. Didn't pass for some reason. https://www.facebook.com/hackercup/problems.php?pid=475986555798659&round=185564241586420

beautiful.pl

use strict;
use warnings;
use 5.10.00;

<>;
my $case;
for(<>){
    $case++;
    chomp;
    my(%c,$answer);
	my $w = 26;
	/[a-z]/i&&$c{lc()}++ for split;
	$answer+=$w--*$_ for sort{$b<=>$a}values%c;
	say "Case #$case: $answer";
}