Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $base_10 += ((ord($values[$_]) - 96) * 26 ** $_) for (0 .. $#value
+s);
    $base_10;
}

#!/usr/bin/perl -w
use strict;
...
    }
    $base_10;
}