$from_api =~ s,^(\d+)\.(\d{2}).*$,${1}${2},;

$from_api =~ s/^(\d+)\.(\d{2}).*$/$1$2/;
$from_api =~ s|^(\d+)\.(\d{2}).*$|$1$2|;
$from_api =~ s{^(\d+)\.(\d{2}).*$}{$1$2};