sub get_time {
    my ($string) = @_;
    local our ($sunrise, $sunset);
    $string =~ /
       sunrise: \s+ (\d+:\d+) (?{ $sunrise = $^N })
       \s+
       sunset:  \s+ (\d+:\d+) (?{ $sunset  = $^N })
    /x;
    return ( \$sunrise, \$sunset );
}

##</code><code>##

sub get_time {
    my ($string) = @_;
    my ($sunrise, $sunset) = $string =~ /
       sunrise: \s+ (\d+:\d+)
       \s+
       sunset:  \s+ (\d+:\d+)
    /x;
    return (\$sunrise, \$sunset);
}