m|^inline sub (\w+)(.*?^})|sm

inline sub example {
    my ($num, $den) = @_;
    if (! $den) {
        return;
    }
    return $num / $den;
}