use POSIX;
use List::Util qw[min max];

my $chartValues = "12,104,1371|53,22,1100";
my $encodedValues = encoding($chartValues);

sub encoding
{
	my @characters = qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9 - .);
	my @series = split(/\|/,$_[0]);
	my @seriesmax = split(/\||\,/,$_[0]);
	my $max = max(@seriesmax);
	my $returnstring = '';
		foreach (@series){
		my @values = split(/\,/,$_);
		my $encoding = '';
			foreach my $value (@values){
			chomp $value;
			$value = ($value/$max) * 4095;
			my  $first = floor($value / 64);
			my  $second = $value % 64;
			$encoding .= $characters[$first] . $characters[$second];
			}
		$returnstring .= $encoding.',';
		}
    return substr($returnstring,0,-1);
}