use strict;
use warnings;
use 5.010;

sub AUTOLOAD {
    our $AUTOLOAD;
    my (undef, $greeting) = split '_', $AUTOLOAD;

    say $greeting;
}

say_goodbye();
say_hello();

--output:--
goodbye
hello