my @splitdata = split(/\^M/, $data);
my $lastValue = pop @splitdata;
print"Last value => $lastValue\n";