http://www.perlmonks.org?node_id=830062


in reply to Re^2: Splitting on a pattern once
in thread Splitting on a pattern once

Use the following way to achieve your requirement.
 my $str="1:2:3";
 my $name=(split(':',$str))[-1];

[download]
-1 will return the value of last index.

In Section Seekers of Perl Wisdom