right_split.pl

#!/usr/bin/env perl -w

use strict;
use Data::Dumper qw(Dumper);

sub _right_split {
    my ( $strstr, $delim, $ary ) = @_;
    $ary ||= [];
    return $ary unless $strstr;
    my $rindex = rindex( $strstr, $delim ) or return $ary;
    if ( $rindex == -1 ) {
        push @{$ary}, $strstr;
        return $ary;
    }
    push @{$ary}, substr( $strstr, $rindex + 1 );
    return _right_split( substr( $strstr, 0, $rindex ), $delim, $ary );
}

print Dumper(_right_split("foo:bar:baz:1972", "\:")) . "\n";