my $sentence = "5:83:24";
print ( ( split /:/, $sentence )[1] ); # prints 83