my @array = split /,/, $string;
my $value = pop @array;


##</code><code>##

my $value = ( split /,/, $string )[ -1 ];