$func_com =~ y/ABCDE//cd;

$func_com =~ s/(.)/func_$1();/g;

eval $func_com;