my ($sub) = $AUTOLOAD =~ /([^:])$/;

##</code><code>##

   my ($sub) = $AUTOLOAD =~ /([^:]+)$/;