if (my ($grant, $db, $schema, $user, $scope) = $results[0] =~ /.*GRANT\s(.+)\sON\s(.+)\.(.+)\sTO\s(\S+)\@(\S+)/i)
{
    $db     =~ tr/'`//d;
    $schema =~ tr/'`//d;
    $user   =~ tr/'`//d;
    $scope  =~ tr/'`//d;
    ...
}