get qr/(?<greet>hi|hello)/ => sub {
    print $+{greet}, " there!\n";
}