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