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

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

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