sub getvalue {
    my $s = shift;
    local $_ = shift;
    return $+ if /$s[:=](?:(\d+)|"([^"]+)"|\s*(.*?)\s\D)/;
    "Match not Found";
}