our $AUTOLOAD = "aaa::bbb::ccc";

my ($func) = $AUTOLOAD =~ /.*::(.*)$/;

print "$func\n";		## ccc
print "$AUTOLOAD\n";	## aaa::bbb::ccc