The below code is developed based on your logic and I am getting the following output. But I am not getting your expected output. Check whether your expected output is correct.

use strict;
use warnings;

my %p = (A => 2.74, B => 2.64, C => 2.5);
my @range = (50,55,60,65,70,75,80,85,90);

while(my $str = <DATA>){
    chomp($str);
    print "\nInput     : $str\n";
    
    $str =~ s/(\d+)(\w)/($2 . '*') x $1/eg;
    $str =~ s/(\w)(\w)/$1 . '*' . $2 . '*' /eg;    
    $str =~ s/(?!\*)$/*/;    
    $str =~ s/(.)\*(?!\1)/"$1\*\(".$range[ord($1) - 65]."\/100\)\*"/eg
+;
    $str =~ s/\*+$//;    
    
    $str =~ s/$_/$p{$_}/g for (keys %p);
    
    print "Expression: ".$str ."\n";
    print "Output    : ",eval$str ,"\n\n";

}
__DATA__
4ABC
2A2B2C
3C
ABC

Output is:

Input     : 4ABC
Expression: 2.74*2.74*2.74*2.74*(50/100)*2.64*(55/100)*2.5*(60/100)
Output    : 61.38045890064


Input     : 2A2B2C
Expression: 2.74*2.74*(50/100)*2.64*2.64*(55/100)*2.5*2.5*(60/100)
Output    : 53.96012424


Input     : 3C
Expression: 2.5*2.5*2.5*(60/100)
Output    : 9.375


Input     : ABC
Expression: 2.74*(50/100)*2.64*(55/100)*2.5*(60/100)
Output    : 2.98386

[download]

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

In reply to Re: regex and string functions help needed. by Samy_rio
in thread regex and string functions help needed. by valavanp

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.