There are many errors or weird things in your program

1. You are not indenting your code properly so it is very hard to see what loop goes around what code.
2. Your string expansion is very weird. Why do you expand your string 2A2B2C in a loop when the regular expression already does the complete expansion?
3. Your string length calculation is wrong. You calculate the length of the unexpanded string 2A2B2C instead of calculating the length of the expanded string. Also, name your length variable something better than $b. Maybe call it $string_length or $sequence_length, so that you and others understand what you are doing.
4. Your if ... elsif ... structure is very, very bad and error prone. If you want to associate a letter with a value, a hash is the natural structure:

   my %value = (
       A => 1.5,
       B => 2.5,
       C => 3.5,
   );
   
   my %factor = (
       A => 50/100,
       B => 55/100,
       C => 60/100,
   );
   [download]

   You can then easily split up your string and calculate the numbers.

   my @letters = split //, $expanded_string;
   my $result = 0;
   for my $letter (@letters) {
       $result = $result + $value{ $letter } * $factor{ $letter };
   };
   
   print $result;
   [download]

With these changes, I get a result of 8.45, so either your calculation of 28.4238 is wrong or you need to explain how you arrive at that number. Basically, my code calculates the following number:

$result = 1.5 * (50/100) * 2 + 2.5 * (55/100) * 2 + 3.5 * (60/100) * 2
[download]

Hi valavanp, Try like this,

use strict;
use warnings;
my $str = "2A2B2C";
my %p = (A => 1.5, B => 2.5, C => 3.5);

my @arr = split/(?=\d+)/, $str;
my $range = 50;
map{s/^(\d+)([^\d]+)$/(($p{$2}."\*") x $1)."$range\/100"/e; $range+=5;
+}@arr;
$str = eval join'*', @arr;

print $str;
[download]

Updated
valavanp, see below for The range is (50,55,60,65,70,75,80,85,90). How can i code that. your solutions.

use strict;
use warnings;
my $str = "2A2B2C";
my %p = (A => 1.5, B => 2.5, C => 3.5);

my @arr = split/(?=\d+)/, $str;
my @range = (50,55,60,65,70,75,80,85,90);
my $i =0;
map{s/^(\d+)([^\d]+)$/(($p{$2}."\*") x $1)."$range[$i]\/100"/e; $i++;}
+@arr;
$str = eval join'*', @arr;

print $str;
[download]

use strict;
use warnings;

my @p = (1.5, 2.5,  3.5 );
my @m = (0.5, 0.55, 0.60);

my $a="2A2B2C";

sub calc
{
    my $i = shift;
    my $j = ord(shift)-65;
    
    my $r = $p[$j];
    
    $r *= $p[$j]
        for (0..$i-2);

    return $r * $m[$j];
}


$a=~ s/([0-9]+)([A-Z])/(calc($1,"$2"))/g;
$a=~ s/\)\(/)*(/g;

eval "\$a = $a;";
print $a; #28.423828125
[download]