splitting on last occurance

split_last.pl

use strict;
use warnings;
use feature 'say';

my $input  = 'foo:bar:baz:quux';
my ($fbb, $quux) =
	reverse map scalar(reverse($_)),
	split /:/, reverse($input), 2;

say $fbb;
say $quux;