sub get_captures {
    my ($pattern, $line) = @_;
    my @captures = $line =~ m/$pattern/;
    shift(@captures) if !$#+;
    return @captures;
}

##</code><code>##

sub get_captures {
    my ($pattern, $line) = @_;
    my @captures = $line =~ m/$pattern/;
    return @captures[0 .. $#+ - 1];
}

##</code><code>##

sub get_captures {
    my ($pattern, $line) = @_;
    my @captures = $line =~ m/($pattern)/;
    shift(@captures);
    return @captures;
}

##</code><code>##

sub get_captures {
    my ($pattern, $line) = @_;
    my @captures = $line =~ m/($pattern)/;
    return @captures[1..$#captures];
}